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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
' DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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03 !++ 

oe FACILITY: ERF, Error Log Report Generator 

05 ; ABSTRACT: 

03 i This module contains the routines that perform the command parsing 

83 for ERF. 

05 ; ENVIRONMENT : 

9041 VAX/VMS operating system, user mode. 

0048 AUTHOR: Sharon Reynolds, CREATION DATE: October 1982 

boe8 i Modified by: 

8266 ! 

004 ! v03-013 SARO273 Sharon A. Reynolds 18-Jun-1984 

Bees } - Fixed a bug with the parsing of device names. 

0050 1! VO3-012 SARO266 Sharon A. Reynolds 15-May-1984 

051 : - Re-inserted code for handling /inc=star$, lost due to 
25 incorrect version checked in. 

0084 i v03-011 SARO255 Sharon A. Reynolds 23-Apr-1984 
55 ! - Fixed a problem in parsing nodes names of max length. 

boe$ } - Added a check for /output and /binary. 
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V03-010 SARO242 Sharon A. Reynolds 64-Apr-1984 
- Removed unnecessary code from search_queue. 
- Made unit number max = 5. 


61 061 
6 O06 v03-009 EAD0120 Elliott A. Drayton 23-F eb-1984 

o7 Beez Changed code to handel UNKNOWN as a keyword, not as a qualifier. 
65 0065 V03-008 SARO190 Sharon A, Reynolds, 13-Feb-1984 
66 Bae = Added additional test for summary updates. 

67 06 - Added 'CS' device name support to the device table 

68 0068 search routine. 

i 4 i - Changed the error return for LibScvt_xxx. 

71 0071 JMG0008 Joel M. Gringorten, 6-F eb-1984 

07 Added Statistics qualifier support. 


74 0074 v03-007 JMG0001 Joel M. Cringorten, 9-Jan-1984 
a Boe Added support for SUMMARY=HISTOGRAM. 
77 0077 V03-006 SARO180 Sharon A. Reynolds, 13-Dec-1983 
78 0078 = Removed unnecessary descriptors. 
79 0079 - Added unsolicited_mscp keyword. 
80 0080 = Removed the logmessage keyword. 
81 0081 - Added the attentions keyword. 
8 008 - Fixed the parsing of *slothSdba3’. 
8 se - Changed the name wild indicator to node name wild indicator. 
85 0085 support node name wild indicator. 
87 iat V03-005 SARO166 Sharon A. Reynolds, 14-0¢ t-1983 
88 88 - Made the set toute command valid. (/inclu=disk/excl=db). 
89 0089 = Changed the way the report type is referenced. 
Ss Beae - Removed reference to erf_norep. 
9 009 V03-004 SARO151 Sharon A. Reynolds, 7-0c t-1983 
G Spo Fixed a bug in GET_DEVICE_SELECT. 
95 0095 v03-003 SARO121 Sharon A, Reynolds, a 
OFULL) 


Fixed a problem with report ype selection (/ 
and added /REJECTED qualifier support. Re-wrote the 
search routine for use with the permanent device tables. 


V03-002 SARO0028 Sharon A. Reynolds, 11-May-1983 
Removed support for logstatus keyword. Fixed a 
problem in parsing an *t' in a device name spec. 


v03-001 SARO014 Sharon A. Reynolds, 18-Apr-1983 : 
F ¢ a problem with error message returns for the persiee 


ixe 
of /include and /exclude device name and keyword selection. 
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This qiobat data psect is quadword aligned. It currently 
contains data for use by the LIBSINSQTI routine. 
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Made the ‘parse_devname’ and ‘search_queue’ routines 
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PSECT GLOBAL = QUEUE_DATA (PIC,ALIGN (3) 
Global 


tt 


Root_flink: Initial (0), 

Root_blink: Initial (0), 

Que_addrs: Initial (0), 

Que_entry_addrs: Initial (0) ; 
PSECT 


Code = $SCODE (pic,addressing_mode(general) 
Plit = SPLIT (pic, addressing_mode(general) 
Own = Sown ~ ae addressing_mode(general)) 
Global = $glo alg (p 


1 
Required files 


REQUIRE 'SRCS$:ERFDEF.REQ’ ; ' 
REQUIRE "LIB$:PARSERDAT.R32° ; i 


‘ 
: Table of contents 


FORWARD ROUTINE 
Class_option_check: NOVALUE, 
Device_option_check, 
Get_device_select, 

Get_vm, 
Parse_command, 
Parse devname, 
Search_queue, 
Translate_device ; 


FUN "SO ODNOUE WN" ODONOu 


WW 


For 
ERF 


i] 
Declare external routines 


EXTERNAL ROUTINE 
CLISGET_VALUE: addressing_mode(general), 


CLISPRESENT: addressing_mode (general), 
LIBSLOOKUP_KEY : addressing_mode (general) 


LIBSCVT_TIME: addressing_mode (general), 


LIBSCVT_DTB: addressing_mode (general), 
LIBSCVT_HTB: addressing_mode (general), 
LIBSGET_VM: addressing_mode (general), 
LIBSINSOTI: addressing_mode (general), 
LIBSREMQTI: addressing_mode (general) ; 


Pw Tw ele al eal eal ales) al sl ae oe et et et ae oe oP oF al | 
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] 
: Declare external Literals 


EXTERNAL LITERAL 
CLi$_absent, 


ee ec ee ce ee ee me ce ee ce ee me ee ee ec ee ee a em ee ee ee ed ed ed ed ed 
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ERF .SRCJERFPAR 


), 
), 


e 


ic,addressing_mode(general)) ; 


message definitions 
parser data definitions 


-_ parameter or qualifier 
value. 

Determine if entity is present 
Match seiectec seyeers against 


the specified keyword table. 
Convert time string to binary 
value. 


Convert decimal to binary 
Convert hexadecimal to binary 
Get virtual memory 

Insert entry at head of queue 
Remove an entry from the 

head for the queue. 
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; WZ 10 1 ClLi$_negated, : 
; 178 e 1 CliScpresent 3 
: 17% 61g 1 Erf_tnfquaval, ; 
Wo: By Eau : 
; rf_devselreq ; $ 
i Rd, : 
3 1 Ost? ! : Declare Literals : 
; «(181 0619 1 GLOBAL LITERAL $ 
; i8¢ 0620 1! Async = 0, ! Index for include class/mask and F 
3; 18 $6 1 1 Bus = 1 ! exclude_class/mask structures F 
> 184 oe¢ | Disk = 3, ; 
; 19? +9 ? : pealting = 3, F 
: nc = &, 3 
i 187 065 1 Tape = 5. 
3; «6189 06 5 1 Error = 2, ! 
; 190 0628 1 Max_class = (5), ! Maximum number of device class selections for /include,/exclude 
; 191 0629 1 Q_entry_size = (((dev$s_dev_queue+7)/8)*8) ;! Device queue entry size 
: 135 oes) 1 | 
3 194 bo3¢ 1 ! Declare global storage 
: 196 Se8 i GLOBAL 
s 97 0635 1! Bugchk_type, ! Storage for bugcheck values 
> «198 0636 1 Dev_class_key, ' Device class selection indicator 
: 199 0637 1 Dev_entry_key, ! Device entry selection indicator 
: 200 0638 1 Dev_name, ' Device name (first two chars) 
3; el 0639 1 Dev_select: REF $BBLOCK, ! Device selection que entry storage 
; $06 0640 1 Entry_value, ! Converted entry value storage 
; 20 0641 1 Exclude_class: VECTOR (6,BYTEJ,! Selected device classes for /exclude 
> 204 0642 1 Exclude_ flag: BYTE, ! /include, /exclude processing indicator 
, gee 0643 1 Exclude_key: VECTOR (6,BYTEJ,! 
: $96 0644 1 Exclude_mask, ! Exclude selection indicators 
: 207 0645 1 Exclude_q_entry_cnt: BYTE, 
; 208 0646 1 Include_q_entry_cnt: BYTE . 
; 209 0647 1 Include_cTass: VECTOR bo -BvTE).; Selected device classes for /include 
: 210 0648 1 Include_key: VECTOR (6,BYTEJ,! 
3 att 0649 1 Include_mask, ' Include selection indicators 
: 1 0650 1 Option_flag, ! Option selection indicators 
; a 0651 1 Parser_data, ' Address of actual data storage area 
: 214 0636 1 Parser_table, ! Address of descriptor storage area 
: 215 655 1 Que_entry_cnt: WORD, ! Number of entries in the queue 
: 216 654 1 Summary_fTag, ! Summary option selections 
: 217 a9 Class_dir, . : | 
; Wild_carded_device ; ! Device wild carde 

3 B82 ' ild ded_devi oD \d ded 
> 220 658 1 | 
: Keywrd_mask: nitia : 

; 638 ' d k Initial (2xX"FFFFF") | 
: iB P 
3 4 666 1 Exclude_mask: REF $BBLOCK, 
: 5 665 1 Include_mask: REF S$BBLOCK, | 
3 $ 664 1 Option_flag: REF $BBLOCK, 
3 665 1 Parser_data: REF $BBLOCK, 
; 228 0666 1 Parser_table: REF SBBLOCK, 


uw 
AAO 


09 C9 00 0909 08 NINN NSIS O 


MEW OCONOUES WI O0O~) 


Bs 
$ re m 06 

3 g Mm 06 

s 26 M 06 
: 244 | 
; 245 Mm 06 

3 24 i 

s 26 M 06 
; 248 M 0686 
3; 249 M 0687 
: 250 M 0688 
s 231 M 0689 
: 25 M 0690 
3; £ 0691 
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gunmary flag: REF S$BBLOCK, 
Que_entry_addrs: REF $BBLOCK, 
Class_dir: REF SBBLOCK ; 


! 
; Macro definitions 


MACRO 
Define a macro for converting the entry values from ascii to a value. 
CVT_ENTRY_VALUE = 
Begin 


If NOT (status = LIBSCVT_DTB (.wrk_descldsc$w_lengthJ, 
- -wrk_desc(dscSa_pointer],entry_value)) 
en 
i] 


i Error maps the ascii decimal value to a value, notify 
the user and exit. 


Signal (erf_cvterr, 2,.wrk_descldsc$w_LlengthJ, 
ced 8 -wrk_desc(dsc$a_pointer]) ; 
nd % ; 
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GLOBAL ROUTINE PARSE_COMMAND = ! Command Line parsing 


+4 


This routine is called from the main loop to parse the 
command Line 


Calling Sequence: 
PARSE_COMMAND () 

Input Parameters: 
None 


ODOOGDOOOCOCOCOOOOO 


Output Parameters: 


be bb tt 


SD( "SLINE' 
"FILE SPECS’, 
"BEFORE', 


MOPINOFUNIND: 


BaSSSSSSS EN SS Sa NSSF ee SSSA SOP R ISLA ISINNS 


P 
"REGISTER DUMP’, 
REJ v 


VVUVVVVVVVVUVUUVUUUUUU 
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i] 

§ 
"STATISTICS, 
"SUMMARY') ; 


i i i i Pn in Pi in Pin ye i i iy Sn i ee i te et te be i be be be ee en 


nd ZNAME("ENTRY_END_DESC') 
nd NAME ("ENTRY-START_DESC 
nd ptr_0 = CHSPTR (UPCIT ( 
nd ptr_z = CHSPTR (UPLIT ( 


Y.END") ; 
TRY.START') ; 


IN 
m— 
zn 


i 
i 
i 
i 


ANNAN 
PREPRESS 
Mewn 


B 
B 
8 
8 
L 


LOC 
! Command Line desc address storage 
BYTE : /nofull indicator 
Initial (0), | Multiple uses 
: ney word value storage 
! Return status storage 


B 
Cmd_line_desc, 
FulT_negate: 


Key value, 


1 

4 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 i 
Begin 
' 
Generate static string descriptors for the qualifiers. 
Status, 


So 
~ 
= 


t 

! Functional Description: 
| 
| 
| 
| 
| 
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i Get virtual wonery for the include mask flags. 
38 Include_mask = GET_VM 


¢ Exclude_mask = GET_ 
6 
7 


Cinc$s_include_flags) ; 


8 } 
801 ! Get virtual memory for the option flags and set up 
Oe ! some defaults. 
Option_flag = GET_VM coptse eat, *Lege? 3 
5 Option_flaglopt$v_out ut qual =t 


rue ; 
#4 Option_flaglopt$v_full_qua 


true ; 


; 13 y System_id: Initial (0) ; Temporary storage for system id 

: 315 7 

3; 5} 7 Wrk desc:  $BBLOCK Edsc$k_¢ bln ! Dynamic work descriptor 

: i q 2 Preset Rerttsesetes = dsc$k.class.d), d 

: 31 ? 

3 0 7 5 : Create the keyword tables for the LIBSLOOKUP_KEY routine. It (LIBSLOOKUP_KEY) 
; ; f 3 will locate a matching key and return the value associated with it. 

: 760 Summary_keywords: ! /SUMMARY keywords 

: 354 P 0761 SLIB-KEY TABLE ( ae 

3 5 P 076 TDevice, 01), 

: § P 076 (Entry, 02) 

: P 0764 (Memory, 35, 

: 8 P 0765 (Volume, 04) 

; 9 76 (Histogram, 65)) ; 

: 3a) Ores 3 

: 3 $769 i Allocate memory for the parser table (descriptors) and the parser 

: 33 3700 } data (actual data). 

; 3¢ O77e Parser_table = GET_VM (erl$s_prs_table) ; 

: 338 ee Parser_data = GET_JM (erl$s_prs_data) ; 

: 338 Ores 3 

; 339 9776 Set up some default values. 

; 324 0778 Parser_data erl$b_rpt_type] = full cep : ! Default to full 

: 4@ 0779 2 Parser_dataler|$q_end_dateJ+0 = (2x'FFFFFFFF') ; ! Default to most future date 
3 0780 Parser _datalerl$q_end_date]+4 = (Ax'"7FFFFFFF') ; ! 

: 344 0781 Parser_datalerl$q_start_date]+0 = 0 ; ! Default to earliest possible 
; 345 or 86 ! date/time. 

; 346 078 Parser_datalerl$q_start_dateJ]+4 = 0 ; } : 

3; 347 0784 Parser_datalerl$l_start_entry] = 0 ; ' Default to the beginning entry 
; 48 0785 Parser_dataler($l_end_entry) = (Xx'FFFFFFFF') ; § Default to the Last entry 

; 350 0787 2! 

; 2] $4 4 } Get virtual memory for the bugcheck value storage. 

; 38 0790 iBugchk_type = GET_VM (bug$s_bugchk_flags) ; 

; 355 9 

: 2$ 0 9 ! Get virtual wenery for the exclude mask flags. 

3 35 2 M (exc$s_exclude_flags) ; 

| 
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i Get virtual "eet for the summary ell peas flags. 

Summary_ flag = GET_VM (sum$s_summary_flags) ; 

: Set up the descriptor that points to the entire command Line. 
18 

14 

15 


horene table(cmd$b_class] = gscfk. class.d 


_lifie_desc = parser_ table erl$r_cmd Tine) ; 
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' Save the entire command Line for output at the end 

' of any report. 


LISGET_VALUE (SLINE_DESC,.cmd_line_desc) ; 


Parse the command Line. 
Determine if the /BEFORE qualifier was specified. 


: 
C 
' 
i 
! 
: 
' 
If CLISPRESENT (before_desc) 
Then 


; Get any value associated with the qualifier. 


Begin 

Option Te eb wed ey = true ; 

If CLISGET_VALUE Thefore_desc,wrk_desc) 

Then | 

Convert the ascii time/date string to binary time/date. 

LIBSCVT_TIME handles the Today 

oes comers an absolute or delta time string or a combination of 
e two. 


i 

i 

' 

i 

Begin 

M NOT (status = LIBSCVT_TIME (wrk_desc,parser_dataLler\$q_end_date])) 
en 


i 
Date/time conversion error, notify the user. 


Signal (.status) ; 


n 
End ; 


Determine if the /BINARY qualifier was specified. The file spec 
for the ceteery qualifier is retrieved and parsed by the 
Parse_output_files routine in ERF. 


f CLISPRESENT (binary_desc) 
hen 


qe cecasacare 


i Indicate that the qualifier was specified and reset the 
default report type information. 


Begin 
Status = CLISPRESENT (output_desc) ; 
tf »Status EQL CLIS_PRESENT 


en 
Signal_stop (msg$_confqual) ; 


Option_flag opt$v_binery.qual = true ; 
Option_flaglopt$v_full qual = false ; 
Parser _dats erl$b_rpt_type] = 0 ; 


Yesterday, and Tomorrow keywords and 
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i Determine if the /ENTRY qualifier was specified. The CLD will 
' ensure a value was specified. 


' 

! 

' 

t 

If CLISPRESENT (entry_desc) 
Then 


i Indicate that the /Entry qualifier was specified and get 
H any associated values. 


Begin 
Option_flaglopt$v_entry_qual] = true ; 


i Get the value associated with /ENTRY=start:value. The CLD will 
: return a default if the user did not specify anything. 


it CLISGET_VALUE(ENTRY_START_DESC ,wrk_desc) 
e 
J 


i Convert the ascii input to a decimal value and save it. If there was 
' a conversion error the CVT_ENTRY_VALUE will notify the user and will 


not return. 


Begin 

CVE_ENTRY VALUE ; 
Parser_datater(Sl_start_entry3 = .entry_value ; 
ng ; 


Get the value associated with /ENTRY=end:value. The CLD will 
return a default if the user did not specify anything. 


: CLISGET_VALUE (ENTRY_END_DESC ,wrk_desc) 
en 
' 


ee 


i Convert the ascii input to a decimal value and save it. If there was 
' a conversion error the CVT_ENTRY_VALUE will notify the user and will 


not return. 


Begin 
CVE ENTRY VALUE ; 
Parser_datalerl$l_end_entry] = .entry_value ; 


End ; 
' 
! Determine whether the /EXCLUDE qualifier was specified. 


if CLISPRESENT (exclude_desc) 
Then | 
: Indicate that the /exclude qualifier was specified. 
Begin 
Option_flaglopt$v_exclude_qual] = true ; 
Exclude_flag = true ; 


TUSSI E ££ = e3 
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! 
Get any value(s) associated with the qualifier. 
While CLISGET_VALUE (exclude_desc,wrk_desc) do 

Beg n 


; Determine if the retrieved ‘value’, is a keyword. 
It WW NOT (GET_DEVICE_SELECT (wrk_desc)) 


~ 


SOOWONAULS WN $ O OONOUS ARO OONOUS WO 


Not vat ie input for device selection, notify the user 


] 
! Determine whether the /LOG qualifier was specified. 


if CLISPRESENT (log_desc) 
Then 


4 
4 
4 
4 
5 
4 
4 
4 
09435 4 ! and exit. 
bod ¢ # lL_stop (msg$_i Li. Ze 
nal_stop (ms nvquava 
0946 4 ° wh aes, - 
0947 4 sactuas desc) ; 
0948 3 End ; 
094 End ; 
095 
Bh 
095 i Determine whether the /INCLUDE qualifier was speci tied. get any 
G98 : qualifier ‘values’, parse the ‘values’, and save them. 
095 if CLISPRESENT (include desc) 
B32 mn, 
095 i Indicate that the /include page Sree was specified, get 
096 i any value(s) associated with it 
0961 i 
4494 gopin 
096 Option -flaglopt$v include qual] = true ; 
9368 Exclude_flag = false ; 
0966 : While CLISGET_VALUE (include_desc,wrk_desc) do 
$968 4 hte 
0969 4 i Determine if the retrieved ‘value’ is a keyword 
bony ? or a device specification. 
0972 5 if wat (GET_DEVICE_SELECT (wrk_desc)) 
ie fees 
bone ? 7 Illegal input, notify the user and exit. 
977 4 Signal_ stop (nsgs. invquaval, 2, 
0978 4 desc, nc Lude _desc) 3 
979 End ; 
9 End ; 
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i : 7 Indicate that it was speicified. 

p44 Option_flaglopt$v_log_qual] = true ; 

Bt 7 Determine whether the /PAGE qualifier was specified. 
995 If CLISPRESENT (page_desc) 

. er, 

Boe Indicate that the qualifier was specified. 


Option_flaglopt$v_page_qual] = true ; 


3338 


wr 


i Determine whether the /REJECTED qualifier was specified. The 


SFUSUSUSUSISI SISSY 


UV SBHNOA PIN ODO VO PUM OOOO rua 


1 
] 

004 ! file spec will be retrieved and parsed by the Pars tput_fil 
$ $05 pout ten in ERF. , ' _— tsar: 
7 007 2 If CLISPRESENT (rejected_desc) 

7 008 Then 

7 009 : 

f aig } Indicate that the qualifier was specified. 

? Og Option_flaglopt$v_rejected_qual] = true ; 

7 14 $ 
1? ! Determine whether the /SID_REGISTER was specified. 
17 2 If CLISPRESENT (sid_register_desc) 
8 Then | 


i Indicate that the qualifier was specified and get the 
! value associated with it. The CLD will ensure that 
a value was specified. 


Begin 

Opt ion flepCopesy aid reg.qual) = true ; 
CLISGET_VALUE (sid_register_desc.wrk_desc) ; 
i 


i Determine if the specified sid has characters outside the range 
of hexadecimal chars. 


if (CHSGEQ $} -CUEE TES rk. dese) decde_ pointer }.] per} AND 
= CHSLEQ (1,CHSPTR(.wrk_descldsc$a_pointer]),1,ptr_z)) 
en 
1 


Save the system id value. 


ete te te tte teh Ae Ad Ad Ae Ab AP AE AD AD Att et tad ht td ms 
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oo 
con 
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RSS SUN ee 
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sooo 


4 Parser_datalerl$l_sid_selection] = .system_id ; 
ne ; 


i 
! Indicate shat phe (SINCE qualifier was specified and get any value(s) 


! associated with i 


sgeseses 
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v04 1aneeen 188s f3:37:38 «| Lene SeebeRRpaaseR Ssoe3 an 
; 608 1044 ! 

: 208 : $2 tf CLESGET VALUE (since_desc,wrk_desc) 

> 611 1009 

3 oi¢ 1 re ! Convert the ascii time/date string to binary time/date. 

3; 6) 104 ! The CLI will return a default value if the user did not specify one. 
> 614 1050 ! LIBSCVT_TIME handles the Today westerder. and Tomorrow keywords and 
; 615 1051 i will convert an absolute or delta time s ring or a combination of 
ot oo ts Pe ee 

: 618 1054 Begin 

; 619 1922 Option_flaglopt$v_since qual] = true ; 

; ° 9 1996 4 If NOT (status = CIBSCVT_TIME (wrk_desc,parser_datalerl$q_start_date])) 
: 6 é 1058 

; ? ? 1322 } Date/time conversion error, notify the user. 

; 6 5 1061 Signal (.status) ; 

: 627 1908 . 

; 628 1064 ! 

: 434 Ieee Determine whether the /STATISTICS qualifier was specified. 

; $3) Hs it CLISPRESENT (statistics_desc) 

3 en 

: g38 1069 ! 

: $38 TA Indicate that it was speicified. 

; O36 1 Option_flaglopt$v_statistics_qual] = true ; 

; 638 1074 2! 

: or 197? Determine whether /SUMMARY was specified. 

3 641 1077 if CLISPRESENT (summary _desc) 

: $08 1079 

: ete ee : Indicate that a summary report was selected. 

: 646 1082 Begin 

: ri HF Option_flaglopt$v_summary_qual] = true ; 

> 649 1085 

: $30 1986 Get any value(s) associated with the qualifier. 

; 632 1088 ; while CLISGET_VALUE (summary_desc,wrk_desc) do 

3 egin 

3: 654 1090 4 ! ® 

: 222 199) ? : Get the value associated with the summary type keyword. 

: 637 His ? if (status = LIBSLOOKUP_KEY (wrk_desc,summary_keywords,key_value)) 
3 en 

3; 659 1095 4 ! 

: $60 \ 38 ? } Indicate which summary options were selected. 

ie RS set 
: 664 1100 Case .key_value from 1 to 5 of 
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e 
efi. ! Device summary info 


jolololo} 


wn 


egin 
gusmory.tlagtsunty device) = true ; 
nd ; 


C2): ! Entry summary info 


BUen 


: 18 § 3 
; $e? 11 6 : 
; 8s 1 
; £96 11 : 
; 671 11 ; 
a: 1108 & Srirery. Plagtounbeentes’ 2 
3 ummar ag(sum$v_entry] = true ; ‘ 
; 674 1710 3 End ; — z ’ ‘ 
3 f9 1111 : : 
3 (Of 1116 (3): ! Memory summary info ‘ 
; 67 1113 6 Begin : 
; 678 1114 ? Summary_flagCsum$v_memory] = true ; ‘ 
; 679 1115 End ; . 
; 680 1118 P] : : 
; 681 1117 5 (4): ! Volume summary info : 
; 68 1118 6 Begin : 
; 68 1119 6 Summary _flagCsum$v_volume] = true ; ‘ 
; 684 1150 5 End ; ° 
; 685 1121 5 : 
; 686 11 ¢ 5 (5): ! Histogram summary info ; 
3; 687 11 6 Begin ‘ 
; 688 1124 6 Summary_flagCsum$v_histogram] = true ; ‘ 
; 689 1125 5 End ; : 
; 690 1126 5 : 
; 691 1127 5 Tes ; : 
; 1128 5 End > 
> 69 1129 4 Else : 
; 694 1120 4 ' : 
3 oe 1131 : Illegal input, notify the user. : 
; 697 1133 4 Signal_stop (msg$_invquaval, 2,wrk_desc,summary_desc) ; ‘ 
; 698 1134 ; : ; 
; 699 1135 : 
: 700 1136 3 If ..summary_flag EQL 0 : 
; 701 1137 Then summary_flagCsum$v_all_summ] = true ; ; 
; 1138 : 
; 70 1139 End ; : 
: 704 1140 : 
s 705 1141 ‘ ; 
: 706 1146 ! Determine if the /INCLUDE or /EXCLUDE qualifiers were specified and : 
: Ada 1367 set up the defaults for what to output. : 
: 709 1145 If (NOT -option.flegleptsy. include qual }} AND : 
: 710 1148 (NOT .option_flaglopt$v_exclude_qual]) : 
s ty 114 Then : 
3 re 1133 ! : 
: 71 114 ' Default to onert es of all entry types, 3 
; me 1131 ; device classes, and device names. : 
; ay 11 § Begin : 
: 71 115 Option_flagl pt$y_output_all] = true ; 3 
: at 1154 Include_masklinc$v_device_select] = false ; : 
3; 7 1155 Exclude_masklexc$v_device_select] = false ; : 
3 130 11 § Inc lude_mask nc$v_dev_class_select) = fal 3 
: 721 11 Exclude_maskLexc$v_dev_class_select] = false ; : 
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Include_maskCinc$v_entry_select] = false ; 
Exclude_masklexc$v_entry_select] = false ; 
Include_maskLinc$v_unknown_entry] = Se fe 3 
alse ; 


Exclude_maskLexc$v_unknown_entry] = 


i Determine if the /FULL report type qualifier was 
: specified. 


Status = CLISPRESENT (full_desc) ; 
If .status EQL cli$_presenf 
Then | 
; Indicate the report type. 
Begi 
peor e173 
perser datalertGa_rpt_ type] = full_rep ; 
n 
Else 
egin 
If .status EQL cli$_negated 
Then 


i] 
Indicate that /NOFULL was specified. 


ee em a a me i ed ed od 8 8 = od 2 = = = SS 


PN SSELSRF UNAS SS SSRIS ESR AS OPER SLASH NISC S OS OT ORO S te 


Be Se Se Se Ge Se Se Se Se Se Se Se Se Ge Se Ge Fe Se Ge Se Fe Ge SHS See Ge Ge Ge Ge Ge Se Se Se Fe Ss Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Sees Sse Setses 


748 ! 

749 4 Begin 

750 1 ‘4 Parser_datalerl$b_rpt_type] = 0 ; 

751 1 a Full_negate = true ; 

Pe 1 nd ; 

75 1 End ; 

754 1 

755 1 ' 

£36 1 ! Determine if the /BRIEF report type qualifier was 

Pee : specified. 

759 1 if CLISPRESENT (brief_desc) 

760 1 Then 

761 1 ‘ 

o ; : Indicate the report type. 

764 Begin 

1? Dapack densi. pot ran’ © betel 
arser_dataler r e) = brief_rep ; 

78 parser -"pt_typ _rep 

68 ; 

770 i Determine if the /REGISTER_DUMP report type qualifier was 

44 : specified. 

77 if CLISPRESENT (register_dump_desc) 

ore Then | 

77 i Indicate that the report type and ensure that device 

ahs selection was made. 
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iss-32 Yh - Oarae 
ERF .SRCJERFPARSER.B32; 
Begin 
= .1¢1; 
Parser_dataler|$b_rpt_type] = reg_dump_rep ; 
If (NOT .option_flaglopt$v_include_quali) OR 
(dev_entry_Key) 
Then 
i Either a device was not selected or an invalid 
device selection was made, notify the user and exit. 


Signal_stop (erf_devselreq) ; 
End ; 


etermine if a report type was specified and ensure that the 
BINARY qualifier was not specified also. 
( 
n 


-parser_datalerl$b_rpt_type] NEQ 0) 
Ensure that the /binary qualifier was not specified. 
Begin 
if option. flagloptSv_binary_qual 
' 


; IL Legal combination of qualifiers, notify the user and 
© ex . 
' 


Signal_stop (msg$_confqual) ; 


Ensure that there was only one report type specified. 

If .1 GTR 1 

Then 
: Illegal combination of qualifiers, notify the user and exit. 
Signal_stop (msg$_confqual) ; 


' Determine if there are any conflicts between /exclude 

! and /include device class option selections. ; 

!' Do not look at the device, device class, or entry selection 
indicators. 


Status = (..include_mask AND .keywrd_mask) AND 
(..exclude_mask AND .keywrd_mask); 


If .status NEQU 0 
Then 


1 
i Illegal combination of /exclude and /include 


<m 


7 
° 
> 
6 
* 
o 
. 
° 
. 
o 
7 
° 
o 
o 
os 
a 
. 
o 
. 
. 
7 
a 
. 
c 
. 
. 
. 
o 
. 
e 
eo 
. 
o 
o 
o 
o 
e 
. 
. 
2 
7 
o 
. 
s 
a 
e 
2 
o 
. 
e 
. 
ce 
° 
o 
. 
a 
. 
o 
o 
ca 
o 
o 
. 
° 
. 
e 
7 
e 
. 
o 
+ 
e 
° 
e 
. 
o 
. 
e 
. 
e 
° 
. 
° 
. 
o 
. 
° 
io 
e 
7 
@ 
. 
e 
. 
e 
. 
e 
. 
e 
- 
o 
. 
e 
. 
oF 
. 
e 
. 
o 
. 
. 


————__——-——— - - ——_, 


15 
ah Spam tate: HEsSeoctgts H:SH:HE WAG EAB AFaHRet Bale? meant 


3 : } ie } options, notify the user and exit. 
; 4 : ; fe Signal_stop (erf_cnfquaval, 2,exclude_desc,include_desc) ; 
: 840 127 
: bat 1 8 ! Determine if there are any conflicts between any of the 
; 84 1 a8 ' selected devices and any selected device class options 
s th : 6 } for /include and /exclude. 
: B45 1 Hi CLASS_OPTION_CHECK () ; 
BOG, 
: B48 1284 i Indicate that the command Line i d, by returni 
> 849 1285 ' to the calling routine with ® true value. tec tin 
; 850 1 HA ! 
s 851 1 Return true ; 
; 852 1288 1 End; ' Routine 
-TITLE ERFPARSER Command Parser 
-IDENT \vV04-000\ 
-PSECT S$PLIT,NOWRT,NOEXE, PIC,2 
45 4E 49 4C 24 90000 P.AAB: “pect \SLINE\ é 
00000005 00008 P.AAA: <LONG 3 : 
00000000' Bo 008 ADDRESS P.AAB F 
53 43 45 50 53 SF 45 4€ 49 46 Bante P.AAD: tt hare aaa : 
0000000 9001¢ P.AAC: .LONG 10 : 
Oo7g0099° 0020 -ADDRESS P.AAD : 
45 52 4F 46 45 4 4 : P.AAF ‘ ty } ethene é 
90000006 O02C P.AAE: <LONG 6 : 
00000000" 00030 -ADDRESS P.AAF 3 
59 52 41 4E 49 42 3p . P.AAH: ty pea 3 
0000000 So8C P.AAG: .LONG 6 : 
O09g009 . ine -ADDRESS P.AAH 3 
46 45 49 4 0044 P.AAJ: .ASCII \BRIEF\ 3 
0049 -BLKB ; 
90000005 04¢ P.AAL: .LONG 2 
opg009" 8 -ADDRESS P.AAJ 3 
59 52 54 4E 4 0089 P.AAL: tt \ENTRYN : 
00 90005 OSC P.AAK: <LONG : 
00 200 9" -ADDRESS P.AAL 3 
45 44 55 4C 43 4 A P.AAN: tf SERCLUBE 3 
99 9007 $ P.AAM: .LONG 7 : 
0 2" eADDRESS P.AAN 3 
4C 4C€ 4 74 P.AAP: .ASCII \FULLN : 
08 30008 78 P.AAO: .LONG 3 
0 099" 7¢ -ADDRESS P.AAP i 
45 44 55 4C 43 4E 4 oon? P.AAR tt INCLUDE 3 


aT ARBMNOe@ 2s Ber KO Ke TOO MNHOOOZ Bl KO KH LTO MMOOOZ BK KR TOMMNOCOOZ BKC Ke TO VMMOOWw 
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FO6L 000 Won 808=198E $3333 FAKE BU isso 8e va - 00 soe 18 
06 99007 P.AAQ: .LONG 7 : 
47 4F 4 3 P.AAT ASCII \LOG\ : 
00900096" Pipe “LONG P.AAT : 
54 55 50 54 F } P. AAV “ASCII \OUTPUT\ : 
990000 AG P.AAU: LONG ; 
0000" 0008 “ADDRESS P.AAV ; 
45 47 41 AC P.AAX: ASCII \PAGE\ ; 
8988898. ARERD P=AAY “LINE. 7 
50 4D 55 44 SF 52 45 546 53 49 47 & § ance P.AAZ: ASCII yREGISTER_DUMP\ ; 
99000000 99¢ P.AAY: .LONG 13 ; 
009009 ' 6 CC “ADDRESS P.AAZ : 
44 45 54 43 45 “003 sal S006 P - ABB: ASCII YREJECTED\ ; 
00g0d " 000D¢ “ADDRESS P.ABB 3 
52 45 54 53 49 47 45 52 SF ra G0e6 P- ABD: Asc \S1D_REGISTER\ : 
00090009" OOFG ° ‘ADDRESS P.ABD : 
45 43 46 49 5 O0F4 P.ABF : “ASCII SINCE : 
SS93R5. HERES ABE: AON so aa : 
53 43 49 54 53 49 54 41 56 98 00104 P. ABH: -ASCII \STATISTICS\ : 
0000000A 00110 P.ABG: .LONG 10 ; 
00990009" 00114 “ADDRESS P.ABK : 
59 52 41 4D 4D 55 § QO118 P.ABJ: ASCII \SUMMARY\ ; 
90000007 00120 P.ABI: :LONG 7 : 
0000000" 00124 “ADDRESS P.ABJ ; 
44 4E 45 2€ 59 52 54 4E 4 01 é P.ABL: Ascii YENTRY .END\ : 
itdittte $01 _— LODRESS P ABL : 
54 52 41 54 53 2€ 59 52 54 4E aS 0013¢ P.ABN: ASCII \ENTRY.START\ : 
90000008 0148 P.ABM: <LONG 11 : 
00000 9° O14¢ “ADDRESS P.ABN : 
8 8 150 P.ABO: .ASCII \0\<0><0><0> 3 
A 154 P.ABP: .ASCII \z\<0><0><0> F 
00 45 43 49 56 45 44 06 158 P.ABQ: ASCII <6>\DEVICE\<0> : 
00 59 52 54 46 45 0160 P.ABR: ASCII <5>\ENTRY\<0><0> : 
2s eB oe Be Mblee BMS: CREE eran : 
00 00 4D 41 $ 47 4F 54 5 49 28 9 00178 P.ABU: <ASCII BoD SEN Am<0><0> : 


-PSECT QUEUE_DATA,NOEXE, PIC,3 
00000000 00000 ROOT_FLINK:: 


-LONG 0 F 
00000000 00004 ROOT_BLINK:: 
- LONG 


—— 


ERF PARSER Command Parser 1$-06 -1984 AX-11 iss-3 74 o 9 
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00000000 00008 QUE_ADDRS:: 


.LON 
00000000 0000C QUE ENTRY ADDRS: ; 
CONG 0 $ 


-PSECT SOWNS,NOEXE, PIC,2 


OOOFFFFF 00000 KEYWRD_MASK: 
.LONG 1048575 : 
00# 00004 WRK_DESC: 
BYTE C3) : 
02 i 7 “BYTE : 
0000000A 


8 “BLKB 

000¢ SUMMARY KEYWORDS: 
“ADDRESS P.ABQ 
LON 
SADDRESS P.ABR 
LONG 
“ADDRESS P.ABS 
ADDRESS P.ABT 
“ADDRESS P.ABU 

ONG 


Foor waflonrero 
Ww 


Be Se Se Se Se Fe Se Se Se Be Be 


-PSECT S$GLOBAL$,NOEXE, PIC,2 
00000 DEV_CLASS ve 
00004 DEV ENTRY KEV: 
00008 DEV_NAME:: 
0000C DEV_SELECT:: 
00010 ENTRY _VALUE® 
00014 EXCLUDE_CLASS:: 
0001A EXCLUDE_FLAG: : 

~BLKB 


00018 -BLKB 
Q0001C EXCLUDE_KEY:: 

-BLKB 
000se -BLKB 
00024 EXCLUDE_MASK:: 


-BLK 
00028 EXCLUDE_Q a ‘mabe 
00029 INCLUDE_@ ENTRY_CNT:: 
-BLKB “1 


- NO |" CO fF fF fF SF S&S 


it -BLKB 
00 C INCLUDE CLASS: : 


00032 -BLKB 
00054 INCLUDE_KEY:: 


I aeons ese HERETO PEERS ae DeNHB UE roe 


O00 wc.upe ithe. 


Neo 


LKB 4 
00040 OPTION_FLAG:: 
-BLKB 4 
00044 PARSER DATA: ; 
00048 PARSER TABLE: o. 
0004C Que ENTRY ENTE: 
-BLKB 
$0056 SUMMARY_FLAG: : : 
00054 CLASS DIRE: ; 
00058 WILD_ CARDED DEVICE: 
-BLRB 
BUS== 1 
ISK== ‘ 
REALTIME== 
SYNC== 4 
TAPE== 5 
RROR== : 
MAX_CLASS== 
ENTRY SIZE== 32 
SCINE_DESC== P.AAA 
FILE SPECS _DESC== P.AAC 
BEFORE _DESC== P.AAE 
BINARY-DESC== P. AAG 
BRIEF _DESC== P.AAI 
ENTRY-DESC== P.AAK 
EXCLUBE_DESC== P.AAM 
FULL _DESC== P. AAO 
INCLODE_DESC== P.AAQ 
LOG DEST== PL AAS 
OUTPUT DESC== P. AAU 
PAGE _DESC== P. AAW 
REGISTER_DUMP_ DESC==P.AAY 
RE JECTED -DESC= P.ABA 
SID REGISTER. DESC== P.ABC 
SINCE _DESC== P.ABE 
STATISTICS DESC== P.ABG 
SUMMARY_DESC== P.ABI 
ENTRY_END_DESC= P.ABK 
ENTRY-START_DESC= P.ABM 
PTR_O= P. ABO 
PTR-Z= P. ABP 
-EXTRN CLISGET VALUE, CLISPRESENT 
-EXTRN LIBSLOORUP_KEY, LIBSCVT_ TIME 
-EXTRN LIBSCVT_DT6, Lia$cvT_HT6 
-EXTRN LIBSGET~VM, jas insart 
-EXTRN LIBSREMOTI, CLI$_ABSENT 
“EXTRN CLIS_NEGATED, CLI$_PRESENT 
~-EXTRN ERF_CNFQUAVAL, ERF_CVTER 
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-EXTRN ERF _DEVSELREQ 
~PSECT SCODE,NOWRT, PIC,2 


OFFC 00000 ENTRY PARSE COMMAND , Save R2,R3,R4,R5,R6,R7,R8,- ; 0693 
58 00000000v 00 9€ 000 MOVAB GET _vM. R1 : 
SA 209 9006 0 9E ited MOVAB LIBSSTOP, R10 : 
9 000000006 9€ 0001 MOVAB (CLISGET_VALUE, R9 : 
8 99000006 0 9E 0001 MOVAB (CLISPRESENT, R8 : 
000000' 00 9€ 00018 MOVAB WRK DESC, R ; 
36 0 990000" 99 3 00 MOV EXCCUDE DESC, R6 : 
, 5 0 4 MOV OPTION_FLAG, R5 : | 
5é 04 ¢ 00 SUBL2 #4, SP : 
2 7C 000 CLRO. + 0715 
08 DD 000 PUSHL #8 : 0772. 
6B Q1 FB 0003A CALLS #1, GET_VM : 
08 AS 0 DO 00030 MOVL RO. PARSER_TABLE F | 
7E 51 BF 9A 00041 MOVZBL #8{i, -(SP) + 0773 
68 01 FB 00045 CALLS #1, GET_VM F 
04 AS 50 DO 00048 MOVL RO, PARSER_DATA : 
60 02 90 0004c¢ MOVB #2. (RO) : 0778 
05 ad 01 CE 0004F MNEGL #1. 5(RO) : 0779, 
09 AO 7FFFFFFF 8F DO 00053 MOVL #¢147483647, 9(RO) : 0780 
0D Ad 7C 00058 CLRQ 13(RO) ; 0781. 
15 AO 04 0005E CLRL  21(RO) > 0784 
19 a0 01 CE 00061 MNEGL #1, 25(RO) : 0785 
03 DD 00065 PUSHL #3 : 0794 
6B 01 FB 00067 CALLS #1, GET_VM : 
E64 AS 50 DO O006A MOVL RO, EXCCUDE_MASK 3 
03 DD 0006E PUSHL #3 : 0798 
6B 01 FB 90070 CALLS #1, GET_VM : 
FC OAS 50 DO 0007 MOVL RO, INCLUDE _MASK : 
03 oD 00077 PUSHL # : 0803 
68 01 FB 00079 CALLS #1, GET_VM : 
65 50 pO 0007¢ MOVL RO, OPTION_FLAG : 
60 0120 BF A8& 0007F BISW2 #288, (RO) > 0804 
01 DD 00084 PUSHL #1 : 0809. 
6B gi FB 00086 CALLS #1, GET_VM : 
10 AS 0 pdO 00089 MOVL SUMMARY_FLAG 3 
50 08 AS 00 0008D MOVL PARSER TABLE, RO : 0813 
03 AO 02 90 00091 MOVE , 3(RO) : 
50 0D 00095 PUSHL CMD_LINE_DESC : 0820 
9¢ Ab OF 90097 PUSHAB $ ESC : 
69 02 FB 0009A CALLS #2, CCISGET_VALUE : 
CO Aé 9F 0009D PUSHAB BEFORE DESC + 0827 
68 gi FB SO0A0 CALLS #1, CLISPRESENT : 
2E 0 €E9 OOOA BLBC = RO. *‘18 : 
50 5 oO OOAG MOVL OPTION_FLAG, RO > 0833 
60 1 88 000A BISB2 #1, (RO) : 
7 DD OAC PUSHL R > 0834 
CO Ab 9F OOOAE PUSHAB BEFORE_DESC : 
69 08 FB 00B1 CALLS #2, CLISGET_VALUE : 
1D E 0084 BLBC : : 
7E 04 AS 05 C1 00087 ADDL3 #5. PARSER_DATA, -(SP) : 0843 
DD 000BC PUSHL R : 
000000006 00 02 FB 000BE CALLS #2, LIBSCVT_TIME : 
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5 D c5 MOVL RO, STATUS ; 
‘ i ts a8 pigs, StAtUs. 18 : 0848 
000000006 00 07 FB be CALLS #1, LIBSSIGNAL : 
DO Ab 9F 000D4 1$: PUSHAB + BINARY_DESC : 0857 
68 o1 FB 007 CALLS #1, GLISPRESENT : 
2A 0 : QODA LBC —s«éRO,. 38 : 
38 86A6 SF 00000 PUSHAB OUTPUT_DESC t 0864 
68 QI FB O00E0 CALLS #1, CLISPRESENT : 
9 DO O00E MOVL RO. STATUS : 
000000006 &F 32 D4 O0E6 cMPL status, #CLIS_PRESENT + 0865 
0008123 BF DD bOcr PUSHL $$29123 : 0867 
6A 01 FB OO0FS CALLS #1, LIBS$STOP : 
50 65 DO 000F8 2$: MOVL OPTION_FLAG, RO + 0869 | 
60 02 88 OOFB BISB2 #2, (RO) : 
60 A OOOFE BICB2 #32, (RO) t 0870 
50 04 AS DO 00101 MOVL § PARSER_DATA, RO : 0871 
60 94 00103 CLRB —s_ (RO) : 
FO Ab 9F 00107 3$: PUSHAB ENTRY_DESC + 0878. 
68 or FB 0010A CALLS #1, CCISPRESENT : | 
4F 0 £9 0010D BLEC =O aR F 
50 65 00 00119 MOVL  OPTION_FLAG, RO + 0885. 
60 08 88 0011 BISB2 #8, (RO) : | 
57 DD 00116 PUSHL : 0891 
Oopc C6 9F 00118 PUSHAB ENTRY_START_DESC ; 
69 02 FB 0011C CALLS #2, CLISGET_VALUE : 
34 50 £9 OO11F BLBC = RO, S$ : 
DO «AS «OF 00122 PUSHAB ENTRY_VALUE : 0898 
04 A? go 00125 PUSHL WRK_DESC+4 3 
7E 67 3C 00128 MOVZWL WRK-DESC, -(SP) : 
000000006 00 03 FB 00128 CALLS #3, LIBSCVT_DTB : 
52 50 00 001 ‘ MOVL RO, STATUS : 
15 52 £8 001 BLBS STATUS, 48 : 
04 A? ODD 00138 PUSHL WRK_DESC+4 ; 
7E 67 3C 00138 MOVZWL WRK-DESC, -(SP) : 
02 DD 0013 PUSHL # : 
000000006 8F DD 00140 PUSHL #ERF_CVTERR : 
000000006 04 FB 00146 CALLS #4, CIBSSIGNAL : 
50 04 AS DO 00140 4$: MOVL PARSER DATA, RO : 0900 
15 AO DO} 6A5 «DO 00151 MOVL ENTRY_VALUE, 21(RO) : 
57 DD 0196 S$: PUSHL R > 0906 
00c8 C6 9F 00158 PUSHAB ENTRY_END_DESC : 
69 08 FB 13¢ CALLS #2, CCISGET_VALUE : 
4 . 15F 68: BLBC ; 
D0 «AS OOF 162 PUSHAB ENTRY VALUE > 0913 
06 A? 43 016 PUSHL WRK_DESC+4 3 
7E 67 3C 00168 MOVZWL WRK"DESC, -(SP) : 
000000006 00 3 F 0168 CALLS #3, LIBS$CVT_DTB : 
3 D 4 MOVL RO STATUS : 
1 E8 0017 BLBS STATUS, 7$ : 
06 =A BD 017 PUSHL WRK_DESC+4 : 
7E 67 3C 0017B MOVZWL WRK-DESC, -(SP) ; 
02 0D Ve PUSHL #2 : 
000000006 ar DD 001 PUSHL #ERF_CVTER : 
000000006 90 4 FB 1 CALLS #4, CIBSSIGNAL : 
0 04 AS dO 0018 7$ PARSER_DATA, RO : 0915 
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19 Ad DO 3=6AS) «(DO 00191 MOVL § ENTRY_VALUE, 25(RO) 
56 DD 196 BS PUSHL 
8 gi FB 19 CALLS #1, CLISPRESENT 
1 Q E9 00198 BLEC =O sséaR 
0 5 0 19€ MOVL OPTION FLAG, RO 
60 10 1A1 BISB2 #16, (RO) 
DA AS ot 0 0014 MOVB. = so#, EXCLUDE _FLAG 
00cO 8F BB O01A8 9$ PUSHR #*M<R6,R7> 
69 Q FB OOiAC CALLS 2, CL ISGET_VALUE 
1D E9 OO1AF BLBC ~=_-«aRO,_ «108 
57 DD 001B2 PUSHL R 
90000000v 00 gi Fe 0184 CALLS #1, GET_DEVICE SELECT 
= 26 ED OOlbE PUSHL RB’ 
3 DD 091¢6 PUSHL  R7 
02 DD 001C2 PUSHL He 
0008132¢ er DD 0014 PUSHL #529196 
5S 18 aoe ied * veaemgene 
1c AG OOF itt 10$:  PUSHAB INCLUDE_DESC 
68 01 FB BO 108 CALLS #1, CLISPRESENT 
33 50 €9 001D BLBC 
50 63 oO 00108 MOVL OPTION FLAG, RO 
60 40 8F 88 0010B BISB2 #64, (RO) 
DA AS 94 OO1DF CLRB —« EXCLUDE_FLAG 
57 DD OO1E2 118 PUSHL 7 
1C AG 9F OO1E4 PUSHAB INCLUDE_DESC 
69 02 FB 001E7 CALLS #2, CLISGET_VALUE 
1E 50 €9 OO1EA BLBC ~=—_—«aRO, 128 
57 DD OO1ED PUSHL 
00000000v 00 01 FB OO1EF CALLS #1, GET_DEVICE_SELECT 
E9 50 34 001F6 BLBS 
1C As F 001F9 PUSHAB INCLUDE_DESC 
57 OD OO1FC PUSHL 7 
02 DD OO1FE PUSHL #2 
0008132C 8F DD 00200 PUSHL #529196 
BYE 88588 GAuLS ig iBsstor 
28 Ab 9F 00208 12$:  PUSHAB LOG_DES¢ 
68 01 FB 99 OE CALLS #1, CLISPRESENT 
07 50 €9 00211 BLBC =—._—«aRO,_ 1 
50 65 DO 00214 OVL  OPTION_FLAG, RO 
60 80 8F 88 00217 BISB2 #128, TRO) 
44 AG 9F 0021B 13$: | PUSHAB PAGE DESC 
68 01 FB O21E CALLS #1, CLISPRESENT 
07 50 £9 00221 BLBC = RO, 148 
50 65 DO 00224 MOVL OPTION FLAG, RO 
01 AO 02 88 0227 BISB2 #2, 1(RO) 
6C Ad 9F 0020B 14$:  PUSHAB REJECTED DESC 
be 1 i: 022 CALLS #1, CLISPRESENT 
07 0 €9 00231 BLBC ~=—.-—«aR”O,_ 1 
50 65 0 MOVL OPTION FLAG, RO 
01 AO 04 0237 BISB2 #4, 1(RO) 
0080 C6 9F B 15$:  PUSHAB S16 _REG STER_DESC 
68 1 FB F CALLS #1, ctl PRESENT 
A Q E 4g BLBC ~=—_ RO 
0 65 DO 0024 MOVL § OPTION_FLAG, RO 
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17$: 
18$: 


19$: 


208: 


21$: 
228: 
238: 
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AX-11 Ol leanne 
ERF .SRCJERF PAR 
#16. 1(RO) 
S1D_REGISTER DESC 
#2,~ CLISGET_VALUE 
WRK_DESC+4,~RO 
ROY, PTR_O 
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R_DATA, RO 
MID, 1(RO) 
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> PARSER_DATA, =(SP) 
#2, LIBSCVT_TIME 

RO, STATUS 

STATUS, 17% 

STATUS 

#1, LIBSSIGNAL 
STATISTICS DESC 

i, CLISPRESENT 

OPTION FLAG, RO 

#1, 2(RO) 

SUMMARY _DESC 

#1, CLISPRESENT 

OPTION FLAG, RO 

#64, 7TRO) 


#3 
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SUMMARY _DESC 

#2, SLISGET VALUE 
RO, 27$ 

SUMMARY _KEYWORDS 
#3, LIBSLOOKUP_KEY 
RO, STATUS 

STATUS, 26$ 
SUMMARY_FLAG, RO 
KEY -VALOE, wi, #4 
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VO4 

09 0 €9 
00000000G 8F DD 

ga . 

0 046 «AS 

60 

} 1 

50 D 

09 60 1 €1 
000812E3 F OD 
6A 4 FB 

01 3 (+O 
9? 15 
000812E3 F DO 
6A 01 FB 
50 FC AS DO 
51 FC A? D2 
51 60 51 CB 
29 ES AS 00 
5 FC A? D2 
50 60 53 CB 
52 51 D2 
52 50 52 4 
7 

1¢ A6 OF 
56 DD 
02 ODD 
00000000G 8F ODD 
6A 04 FB 
00000000vV 00 00 FB 
50 01 8? 


; Routine Size: 1073 bytes, 


; 853 1289 1 


Routine Base: S$CODE + 0000 
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35$: 


36$: 


37$: 


43:37:25 LER SaclenPPanstn: 


Rehr DEVseL Red 
IB$STOP 
PARSER. DATA, RO 


8 
OPTION pLAG, RO 


#1, (RO), 
Misg iat 


1, rer 
& 


TATUS, RO, STATUS 
INCLUDE _DESC 
R6 


#2 

WERF_CNFQUAVAL 

#4, CIBSSTOP 

#0, CLASS_OPTION_CHECK 
#1, RO 
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- RF .SRCJER 
: B36 } 39 } ROUTINE GET_DEVICE_SELECT (temp_desc) = ! Device selection parsing 
: S 1 3 1 l+4 
>; 858 1295 1! 
: 28 : Be : Functional Description: 
; 861 1296 1 ! This routine determines if the ‘value’ specified with the /device or /exclude 
s B06 1297 1! quelifier was a valid keyword and translates it to the device class 
; 86 1298 1 ! designation. 
; 864 1299 1! 
; 865 1500 1 ! Calling Sequence: 
; 866 1301 1! 
; 86 1 b 1! GET_DEVICE_SELECT (temp_desc) 
; 868 1303 1! 
; 869 1304 1 ! Input Parameters: 
; 870 1305 1! ; 
: a7) 1358 } : Temp_desc = the ‘value’ associated with the qualifier 
3 87 1308 1 ! Output Parameters: 
: 874 1309 1! 
s &ro 1310 1! This routine will **** 
3; 876 1311 1! 
; 877 1316 1 !-- 
; 878 131 Begin 
; 879 1314 
; 880 1315 LITERAL 
; 881 1316 Max_keywords = 16 ; ! Maximum number of keywords 
; 882 1317 2 
; 883 1318 § LOCAL 
> 884 1319 Device class, ! Device class storage 
: 885 1320 $ Key_value, ' Key value storage 
; 886 1321 Status ; ! Return status storage 
; 887 1356 2 
; 888 132 ! 
3; 889 1324 ' Create the device keyword table. 
; 890 1325 2! 
: «4891 1326 2 OWN 
; 89 1327 § ! ‘ : 
3; 8 1328 ! Define the device class and device entry keywords associated 
: o3e 1399 § } with the /exclude and /include qualifiers. 
: 896 1331 § ev_class_keywords: 
; 897 B 1336 $LIB_REY_TABLE ( 
; 898 P 133 ! TAsync_communications, 00), 
3; 899 P 1334 (Buses, of. 
: 900 Pp 13 5 (Disks, 02) 
: 901 P 1336 (Realtime, 03), 
; 206 P 1337 (Sync_communications, 04), 
; 90 1338 (Tapes, 05)), 
> 904 1339 
: 905 1340 Dev_entry_keywords: 
: 906 P 1341 $LIB_REY_TABLE ( 
: 907 P 1 43 TBugchecks, 06), 
: 908 P 1 (Control_entries, 07), 
: 909 P 1344 (Cpu_entries, 08) 
: 910 P 1345 (Device errors. 95 
911 P 1346 (Machine_checks, 10), 
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; Wi P 1347 (Memory, 11) 
: 91 P 1 4g (Timeouts, 12), 
> 914 P 134 (Volume_changes, 13), 
: 915 P 1350 (Attent Tons, 145, 
3 aig P 1 2] Unsolicited mscp, 15), 
; 91 1 ¢ (Unknown, 163) ; 
; 918 135 
: 919 1354 Pp 
: 920 1355 Temp_desc: REF S$BBLOCK ; 
3 Per 1 2 
. ee 
> 924 1 3g ' Allocate the necessary storage (zero filled) and initialize 
3 4 ? ; 9 the device select queue entry. 
$ $37 1362 Dev_select = GET_VM (q_entry_size) ; 
3 $29 1364 Dev_select(dev$w_unit] = (-1) ; 
: 930 1365 Dev_selectldev$v_node_name_wild] = false ; 
; 931 1366 Dev_select(dev$v_excliude_ffg] = false ; 
s o36 1367 
; 93 1368 
; 934 1369 ! : 
; 935 1370 ! Determine if it is a device class keyword. 
> 936 1371 } 
: 937 1376 Dev_class_key = true ; 
: 938 137 If NOT (status = LIBSLOOKUP_KEY(.temp_desc,dev_class_keywords,key_value)) 
; 939 1374 2 Then 
; 940 1375 } . 
: 941 1376 ! Not a device class keyword, determine if it is 
3 ane 1377 ' a device entry keyword. 
: 94 1378 $ ! 
> 944 1379 Begin 
> 945 1380 3 Dev_class_key = false ; 
3; 946 1381 Dev_entry_key = true ; 
> 947 1386 4 If ROT (status = LIBSLOOKUP_KEY(.temp_desc,dev_entry_keywords,key_value) ) 
: 948 1383 3 Then 
3; 949 1384 : ; 
; 950 1385 ! Not a device entry keyword determine if it is a 
; 951 1386 ! device specification. 
3 236 1387 3 ! 
; 95 1338 4 Begin 
3 954 1389 4 Dev gates ney = false ; 
: 955 1390 5 If ROT (PARSE_DEVNAME (.temp_desc)) 
; 956 1391 4 Then 
: 957 1 4 4 ! Ly : ; 
: 338 \ 4 : : Not a device specification either, return to calling routine. 
: 960 1395 4 Return false 
: 961 1 36 4 ls 
3 366 1397 4 : : 
; 96 1398 4 !' Valid device specification, the name and 
3 He) 139 ? unit number are already stored in the queue entry. 
3; 966 1204 4 ! Translate the device name to a device class. 
: 967 1008 4 : 
3; 968 1403 5 Begin 
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404 If NOT .wild_carded_device 
405 Then 
288 Begin 
40 If NOT TRANSLATE_DEVICE (dev_name,device_class) 
tbe Then | 
410 Device not found, notify the user and exit. 
aig Return false 
tie : 
415 i Device found, save the device class in the device 
2i$ select queue entry. 
418 Dev_select(dev$b_class] = .device_class ; 
420 ! 
421 ' Search any entries already in the queue to ensure 
4 ; ' there are no conflicts between the selected 
Z device and any device class(es) already selected. 
§ if NOT DEVICE_OPTION_CHECK () 
8 Then | 
8 i Like entry already in the queue. 


(/include=MF ,MF or /exclude=MF ,MF) 


Return true ; 
End ; 


nsert entry in the queue. The LIBSINSQTI creates 
self relative queve that is interlocked. 


OT (status = LIBSINSQTI (.dev_select,root_flink)) 


i The entry could not be placed in the queue, notify 
the user and exit. 


Qe 
a 4 


Signal_stop (.status) 
Else 


Entry was successfully entered in queue. 


Begin 
i -exclude_flag 
en 
Exclude_q_entry_cnt = .exclude_q_entry_cnt + 1 
Include_q_entry_cnt = .include_q_entry_cnt + 1 ; 


NOUS WN $0 OONOUES WN "OVE NAOUSWN OO 


Que_entry_cat = .exclude_q_entry_cnt + .include_q_entry_cnt ; 
n . 
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End ; 
End ; 
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3 7 1480 
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3 1049 1484 
: 1050 1485 
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5 1936 1487 
; 105 1488 
3; 1054 1489 
; 1055 1490 
: 1056 1491 
: 1057 14 ¢ 
; 1058 14 
3; 1059 1494 
; 1060 1495 
: 1061 14 $ 
: 1062 14 
3; 10635 1498 
: 1064 1499 
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g 1969 1306 
; 1068 150 
; 106? 1504 
: 1070 1505 
; 1071 1506 
: 1376 1507 
: 107 1508 
3: 1074 1509 
: 1075 1510 
: Hb ta 1511 
: 107 a 4 
; 1078 151 
3; 1079 1514 
; 1080 1515 
; 1081 1219 
: 1082 151 
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4 
! Valid keyword, set up the exclude and include option 
selection indicators. 
if (.dev_entry_key) OR (.dev_class_key) 
Then 


Begin 
If .option_flaglopt$v_include_qual] 
Then 


Begin 
Set -key_value from 1 to max_keywords cf 
0]: 


Begin 

ted poe tle prone ones ge comm] = true ; 
Include_classCasync] = DC$_ACOM ; 
nclude_keylasync] = hey value 3 

pag Ge ROSRL TAEDY A048 ass_select] = true ; 
n . 


! Asynchronous communications device class 


(1): ! Bus device class 


Begin 
Ine Lude_maskLincSy_buses) = true ; 
Include_classCbusJ = DC$_BUS ; 


Include_key(bus) = .key_value ; 
Ene Leste PORne eeSy GOe, 1000 pelasts = true ; 
no ; 
(2): ! Disk device class 


Begin 

Include_maskCinc$v_disks] = true ; 

Include_classCdisk] = DC$_DISK ; 

Include_key(disk] = .key_value ; 

Inc lude-mask inc$v_dev_cTass_select] = true ; 

nd ; 
(3): ' Realtime class 
Begin 
Include_maskCinc$v_realtime] = true ; 
Include_classCrealfime) = DC$_REALTIME ; 
Include_keylrealtime] = .key_value ; 
Include-maskLinc$v_dev_class_select) = true ; 
n 


(4): ! Synchronous communication device class 


Begin 
Int lude_meskCincSv sync_comm]) = true ; 
Include_classCsync] = DC$_SCOM ; 


Inc tude_key{ sync J = .key_Value ; 
Inc lude_maskl nc$v_dev_class_select] = true ; 
nd ; 


(5): ! Tapes device class 


Begin 
Ine Lude_meskl incSy tapes] = true ; 
Inctude_class(tape] = DC$_TAPE ; 
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; 1083 1 Include_key(tape] = .key value ; 

3 1986 i : Inc ude2naskL incSv_dev_cTass_select) = true ; 

10 , 

08 (6): ! h 

st 2 sesin Bugcheck entries 

089 5 Include_maskCinc$v_bugchks] = true ; 

Bay é Inc lude_mask inc$v_entry_select] = true ; 

09 5 i Determine if ific t f heck 

O36 : ope pe specific type of bugcheck entry 

094 ! 

095 


jaaeorget value associated with bugchecks 
nd ; 


= 


(7): ! Control entries 


ooo 


Begin 
Int Lude_mesk inc$v_control_entry] = true ; 
pages een incSventry. selects = true ; 

nd ; 


(8): ! Cpu entries 


i 

| 

| 

Begin | 
Hed pre Mumpeet Pied Mea ama = true ; 

ine Lude_maskt tncdyonthy_se ect] = true ; 

na ; 

| 

: 

| 

| 


(9): ' Device error entries 


Begin 

Int lude. mask inc$v_dev_errors] = true ; 
png ‘eee,_poek inc$v_entry_select] = true ; 
n . 


ere) ‘ ! Machine check entries 

egin 

Ine Lude_mask{ inc$v_machine_chks} = true ; 
ine ‘ude masks incSyontry_selectd = true ; 
no; 


(11): ! Memory entries 


Begin é 
Include_maskCinc$v_memory] = true ; 
Include_maskCinc$v_entry_select] = true ; 
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End ; 
32 ! Device timeout entries 
Begin 
Include_maskCinc$v_dev_timeouts] = true ; 
Include_masklinc$v_entry_select] = true ; 
(13): ! Volume change entries 


Begin 

Ine Lude mask inc$v_volume) = true ; 

pn ‘ude mask inc$v_entry_select] = true ; 
nd; 
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_ERFPARSER Command Parser 18-5 ep-19 45:5 AX-11 Bliss-32 V4.0-742 Page 32 ERI 
v04 06-000 14-5 eats 7 13/3733 ERF. SRCIEREP FPARSER.B32;1 , (4) | v0é 
| 
; 1140 1575 4 (14): ! Device attention entries | r; 
f11ai 1576 Begin | : | 
: 1196 157 Include_maskCinc$v_dev_attentions] = true ; | :4 
+ 114 1 4 Inc lude_ ~maskLinc$v_entry_select] = true ; . 
: 1144 1579 4 End ; | 31 
3 1128 1 1 4 laa SE ! Unsolicted mscp entries (logmscp) | 
3 : 
3; 1148 1888 ; in? tude -maskCinc$v_unsol_mscp] = true ; | : | 
3 1149 1584 Inc Lude_ “maskCinc$v_entry_select] = true ; | .; 
3; 1150 1585 4 End ; .; 
3 1383 1286 4 | 2 
311 § 1587 4 [16]: ! Unknown entry - 
3 115 1588 : Begin | 
3 1154 1589 Include_maskCinc$v_unknown sentry = true ; 3 
3 1322 1590 5 Inc lude_ “maskLinc$v_entry_select] = true ; m4 
3 11 $ 1591 4 End ; 2 
3; 115 1336 4 s 
; 1158 1595 4 COutrange): : 
3; 1159 1594 5 opie :; 
; 1160 1595 5 Return false ; . | 
; 1161 1596 4 nd ; 2 | 
: 1166 1597 4 e 
; 116 1598 4 TES ; . 4 
3 1164 1599 ; End ;: 2 
; 1165 1600 : 
> 1166 1601 4 If (.option_flaglopt$v_exclude_qual] AND .exclude_flag) ; 
: 1167 1608 Then 2 
> 1168 160 ! ; panes : 
3 1169 1604 ! Set up the /exclude option selection indicators. : 1 
: 1170 1605 ! : 1 
3 1171 1606 4 Begin : 
; 1178 1607 4 Case .key_vaiue from 1 to max_keywords of : 
s 117 1608 4 Set : ’ : 
3 1174 1609 4! C0): ! Asynchronous communications device class : 1 
3 1175 1610 4! Begin ‘ 
3; 1176 1611 4! Exc lude_maskCexc$v g*7" wy true ; ° 1 
3 1177 1918 4! Exclude_classlasync DCS_A # 
3; 1178 1613 4! Exclude_keylasync] = exc$v_ come comm ; # 
3 1179 1614 4! Exc lude_maskCexc$v_dev class Select] = true ; ae 
3; 1180 1615 4! End ; e | 
: 1181 1616 4 a 
ie 1617 4 C1): ! Bus device class 3 | 
: (11 1618 2 Begin 2 | 
3; 11 161 Exclude Sess pees true ; 3 | 
; 1185 ioe 5 Exclude_class(Cbus : e - 
3: 1186 1621 5§ Exclude_key(bus] = aes 8 .; 
: 1187 16 ¢ 5 Exclude “maskCexc$v_dev Yelass. *select) = true ; : 
3; 1188 16 4 End ; : 
; 1189 1624 4 ; ; 3 
3; 1190 1625 4 C23: ! Disk device class 3 
3 1191 1626 5 Begin 3 
: 1136 1627 Exc lude_mask( ugSy ais) = true ; | : 
3 119 1628 Exclude_class std ‘2 = 8 = DC$_DISK ; 3 
3 1194 1629 Exclude_key A Value ; 3 
> 1195 1630 Exc lude_mask umf _dev_class_select] = true ; : 
: 1196 1631 4 End ; | ; 
| 
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(3): ! Realtime device class 


1 
1 


Begin 

pxC tude meskCencSy realtime) = tr 
Exclude_classLrealftime] = DC$_REA 
Exclude_key{realtime] = .key_valu 
exG\ude_maskloxcSv_dev_cless_sele 
nd ; 


Fae oe 
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[4]: ! Synchronous communication device class 


Begin 

Exclude_maskCexc$v_sync gona? = true ; 
exc iude_class(syncJ = DC$_SCOM ; 
Exclude_key[sync] = .key_value ; 

Exc lude“maskLexc$v_dev_class_select = true ; 
ng ; 
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(5): ! Tape device class 


Begin | 
Exclude_maskCexc$v_tapes] = true ; 
Exc tude_class( tage] = DC$_TAPE ; 
Exclude_key[tape] = .key_value ; 

Exc lude_maskLexc$v,_dev_class_select] = true ; 
na ; 


(6): ! Bugcheck entries 


Deena noo 
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Begin 
Exe ude_moskCexc$v_bu chks] = true ; 
Exclude_masklexc$v_en ry_select] = true ; 


i Determine if a specific type of bugcheck entry 
was selected. 


roses Get value associated with it 


° 


PAAAASAAAAAAAAOS 
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& 


vee ! Control entries 
Begin 
Exclude_maskCexc$v_control_entry] = true ; 
exe Lute _paskLoucdy_ontry_ select = true ; 
ng; 
(8): ! Cpu entries 
Begin 
Exc lude_mask oxciv cpu entry) = true ; 
ene \ude_neak exc$v_entry_select] = true ; 
nd ; 


(91: ' Device error entries 


CoCo 08 NINN SN SN NSO 


Set ted ten} 


Begin 

Exelude_mask exc$v_dev_errors] = true ; 
exc \ude_mask exc$v_entry_select] = true ; 
n . 


(10): ! Machine check entries 


ee ee ee eee ee es 
PIT BS BV BBB I BB BI BB TT BB TU BB UT B® BB TUT 
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Begin ; 
txclude_maskCexc$v_machine_chks) = true ; 
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: 1254 1689 5 Exciude_masklexc$v_entry_select] = true ; 
; 1255 1690 4 End ; 
3 } ° 1691 4 
3: 1 1636 4 (11): ! Memory entries 
; 1258 169 Begin 
; 1259 1694 Exclude_maskCexc$v_memory] = true ; | 
; 1260 1695 Exclude_maskLlexc$v_entry_select] = true ; 
; 1261 1696 4 End ; 
3 Y 66 1697 4 
: 126 1698 4 33 ! Device timeout entries 
: 1264 1699 5 Begin 
3; 1265 1700 2 Exclude_maskCexc$v_dev_timeouts] = true ; 
: 1266 1701 Exclude_maskLexc$v_entry_select] = true ; 
; 1267 a 4 End ; 
; 1268 1703 4 ; : 
: 1269 1704 4 (13): ! Volume entries (mount/dismount) 
3 1570 1705 5 Begin 
3 1271 1706 5 Exclude_maskCexc$v_volume] = true ; 
; 1st6 1707 5 Exclude_masklexc$v_entry_select] = true ; 
: 127 1708 4 : 
3 1274 1709 4 
: 1275 1710 4 (14): ! Device attention entries 
: 1276 1711 5 Begin 
: 1277 rig 5 Exclude_maskCexc$v_dev_attentions] = true ; 
; 1278 1713 «5 Exclude_masklexc$v_entry_select] = true ; 
; 1279 1714 4 End ; 
; 1280 1715 4 i 
: 1281 1716 4 C15]: ! Unsolicited mscp entries (logmscp) 
3 1s8¢ 1717 «5 Begin 
: 128 1718 5 Exclude_maskCexc$v_unsol_mscp] = true ; | 
3; 1284 1719 5 Exclude_masklexc$v_entry_select] = true ; 
; 1285 1720 4 H 
3 1286 1721 4 
; 1287 \rs¢ 4 (16): ! Unnknown entry 
: 1288 1723 5 Begin 
3; 1289 1724 5 EOS GS DOSES SUC ES MARNOUA ONT YS = true ; 
: 1290 1725 5 Exclude_masklexc$v_entry_select] = true ; 
; 1291 1726 4 End ; 
3 1338 1727 4 
: 129 1728 4 Coutrenge3: 
3: 1294 Hes 5 eg n 
: 1295 1730 5 Return false ; 
3 12 1731 4 nd ; 
3 +4 1736 4 TES ; 
: 1298 17 3 End ; 
: 1299 HA End ; 
+ 1300 1735 
; 1301 1736 ‘ 
3 1308 1737 ! Output data is set up. 
; 130 1738 : 
3; 1 1739 Return true ; 
; 1305 1740 
; 1306 1741 1 End ; ! Routine 
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127338-1382 $3:37:38 ARF SREJEREPARSER 03224 . (3) v04 
1763 } GLOBAL ROUTINE PARSE_DEVNAME (name) = ; } 
1745 1 {44 3 7 
1fe8 1! 37 
1% : } Functional Description: : \ 
1769 1; This routine parses a device name specification. It will validate the 3 7 
1750 1! length and range of the unit number and that the characters specified 3 7 
1751 1! as the name/controller are within a valid range. It will also check : 1 
179¢ | for wildcard name and unit selection. : : 
if : : Calling Sequence: ; } 
4 § ! PARSE_DEVNAME (device name descriptor) : } 
1738 : } Input Parameters: : i 
1769 ; } Device name descriptor = device name passed by descriptor ‘ : 
1706 1 ! Output Parameters: 37 
1765 1! 37 
1764 1! * 3; 7 
1765 1! 31 
1798 1 !e< re | 
176 Begin 3 3 
1768 Fi | 
176) EXTERNAL | 
1770 Include_desc ; 3 1 
1771 : 3 
Hae | LITERAL at 
177 Min_len = 2 B. 
1774 Max-len = 14 21) 
1775 Unit_number_len = 5 ; 71 
1776 a | 
177 MAP 31 
1778 Dev_select: REF $BBLOCK, 21 
177 Name: REF $BBLOCK ; a | 
1780 i | 
1781 LOCAL es | 
1786 . ! Teaporary counter rm | 
178 Name_size, ! Storage for node name size 3 1 
1784 Name_len: Initial 40), ' Storage for device name size Ff 
1785 Ptr, ! Character string pointer rm. 
17 § Ptr_unit, ! Character string pointer to unit number 3; 7 
17 Sp_thr_len: Initial <0), : 1 
1788 Status, ! Completion status indicator 33 
1789 Str_len, ' String Length ; : 71 
17 ptr, , penperery character string pointer _. 
1791 Unit_number, ! Storage for unit number -] 
1796 it~len 3% 
179 3 7 
1794 ' 3] 
1798 : Set up the necessary pointers : ' 
1799 Bind 3 7 
178 Ptr_a = CHSPTR (UPLIT (°A')), : 
1? Ptr-z = CHS$PTR (UPLIT ('2')), | 37 

| 
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v04 yang b= 1882 §3:37538 «HEMET Bb iss ke ya Ose age 35 V 
Ptr_0 = CHSPTR (UPLIT (1019). 
Ptr-9 = CHSPTR (UPLIT ('9'))) 
Ptr-star = CHSPTR (UPLIT ('#!)) 
Ptr-colon = CHSPTR (UPLIT (':')§ ; 


i Determine if the string specified falls in the range of 
the minimum/maximum possible Length. 


if (.mameCdsc$w_length] LSS min_len) OR 
suena dsc$w_length] GTR max_len) 


LEARAVLS 
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i The string is either too small or too large, indicate that 
! this is_ invalid input by returning to the calling routine 
with a false value. 


ht a tt 8 


Return false ; 


(OD C9 CD CD CD CD OD CD09 CD CD CD CD. OD 09 CD09 0D 0D0D 


mn 


Set up pointer to the end of string and break out the 
unit number designation. 


Ptr = CHSPTR (.name[dsc$a_pointer),.name(dsc$w_length]-1) ; 
Str_len = 0; 

Unit_len = 0 ; 

Sp_cfr_len = 6; 


Until (CHSGEQ (1,.ptr,1,ptr_a)) Do 


ee ee ee ae ee ee ee ce ee a ee ee ee ee a ee ee a ee a a ee ae ee eed od edd ed 
‘GD OD Cd CD C9 CD GD COD CD CD CD OD OD CD 0D CD OD CD CD CO CD 


egin 

99 1f (CHSGEQ (1,.ptr.1,ptr_0)) AND 
400 (CHSLEQ (1,.ptr,{1.ptr_9)) 
40 3 ! 
105 37 ! Valid unit number, update string length and point to the 
404 3 ' next character back. 
i i ie 

egin 
409 841 Unit _len = .unit_len + 1 ; 
408 ; Ptr = CHSPLUS (.ptr,-1) ; 
409 End 
410 44 Else 
411 45 ; 
tig § Not a valid unit number, determine if it was a wildcard character. 
414 § Begin 
415 If (CHSEQL (1,.ptr,1,ptr_star)) 
if 2 oe 
re ¢ ; Indicate wildcard specified. 
420 °% Begin 
421 55 Sp_chr_len = .sp_chr_len + 1 ; 
422 56 Ptr = CHSPLUS (.ptr,=1) ; 


| 
Parse the device name specification. 
| 
| 


| 
| 
| 
' 


Wo ee ee =1986 12:27:28 LEAF sSRCIERF PARSE 


742 Page 4 
2;1 (5) 


f 
hen 
Begin 
If (.unit_len GTRU unit_number_len) 
Then 
Unit number designation too large. Return to calling routine. 


Return false 
Else 


i Point to the begining of the unit number(s) and convert the 
: ascii unit number to a binary value and save it. 


Begin 
Ptr unit = CHSPLUS t.ptr |) - ’ : 
i? Tstatus = LIBSCVT_DTB (.unit_len,.ptr_unit,unit_number) ) 
en 
' 


: 

5 1423 1 57 5 End : | 
; 1424 1 g 4 Else : | 
; 1425 1859 5 Begin : ] 
3 14 $ 1860 § If (CHSEQL (1,.ptr,1,CHSPTR (uplit('$')))) :] 
3 14 1861 Then i] 
: 1428 1862 6 Begin :] 
> 1429 1865 6 Exitloop ; : | 
; 1430 1864 End : | 
: 1431 1865 Else : | 
; 14 é 1866 : | 
3 14 186 ' Not a valid unit number or wildcard designator, only other ; | 
5 bt 1908 : ! valid input would be a colon. Determine if it was a colon. : 
> 14635 1869 : | 
; 1436 1870 6 Begin : 1 
3 1437 1871 7 If NOT (CHSEQL (1,.ptr,1,ptr_colon)) :] 
; 14 187¢ 6 Then : | 
; 1439 1873 6 :] 
; 1440 1874 6 i Indicate that this is invalid input, by returning to the :] 
3 1441 1875 6 ! calling routine with a false value. ° ! 
; 144g 1876 6 : | 
> 144 1877 6 Return false : | 
> 1444 1878 6 Else 2] 
3 1445 1879 6 :] 
3 1446 1880 6 ! Character was a colon, point to the next character back. :] 
> 1447 1881 6 7] 
; 1448 188¢ 7 Begin 7] 
: 1449 1883 7 Sp_chr_len = .sp_chr_ien + 1 ; : 1 
; 1450 1884 7 Ptr = CHSPLUS (.ptr.=1) ; :] 
: 1451 1885 6 End ; : 1 
i 1458 1886 5 End ; : | 
3 145 1887 4 End ; : 

> 1454 1888 3 End ; i] 
> 1455 1889 End ; 3] 
; 1456 1890 ‘ 

; 1457 1891 2! :] 
; 1458 1396 2 ! Ensure that the unit number designation is not larger then 5 digits. ° 1 
3 1459 189 ! convert and save it. ° | 
; 1460 1894 2} : 

> 1461 1895 2 if .unit_len NEQ 0 z | 
: 1066 1896 T -4 
> 146 1897 ae 
3 7 1898 4 .4 
31 1899 ae 
2. 1900 ° 4 
31 1901 et 
71 1908 He 
3 1 190 e| 
3 7 1904 . 4 
3; 7% 1905 24 
3; 7 1906 a 
3: 1 1907 . 4 
31 1908 . 1 
31 1909 4 | 
3% 1910 4 oi 
. aie i 
:1 1 g 4 21 
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14-Sep-19 
Save the unit number in the queue entry. 


Begin 
Dev_select(dev$w_unit] = .unit_number 
Else 
Error converting the unit number, notify user. 
End Signal (erf_cvterr, 2,.unit_len,ptr_unit) ; 
nd ; 
End ; 
' 
! Set the pointer to the begining of the string. Calculate remaining 
string length. 


Ptr = CHSPTR (.nameCdsc$a_pointer]) ; 
Str len = ((.name(dsc$w_length] - .unit_len) - .sp_chr_len); 


' 
Determine if a node name was specified. 


Tmp_ptr = CHSFIND_CH (.str_len,.ptr,%C'$') ; 
If .tmp_ptr NEQ 0 
Then | 


i Not a null pointer, there is a node name. Update the string 
! pointer so it points to the device name and adjust the 
string length. 


Begin 

Name_size = CHSDIFF (.tmp_ptr, .ptr) ; 
If .name_size GTR 6 

Then 


Signal_stop (msg$_invquaval, 2,.name,include_desc) ; 


Ptr = CHSPLUS (.tmp_ptr,1) ; 
ptr ten = .str_len = (.mame_size + 1) ; 
n 
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i Did not locate a '$' in the string, ensure the string 
meets length restrictions for device name only. 
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Begin 
! Indicate that a node name was not specified. 
Dev_select(dev$v_node_name_wild] = true ; 
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If .str_len GEQ 7 
Then 
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4 togat string length, for specifying device name 


I 
without a node name. 
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! 
! Save the device and controller designation as 
a counted ascii string. 


Dev_select(dev$b_dev_name_length] = 
T(.name(dSc$w_length] - .unit_len) - .sp_chr_len) ; 
CHSMOVE (.dev_select(dev$b_dev_name_length] 


| 
4 
4 
4 
; 
; .name(dsc$a_pointer],dev_select(dev$t_dev_name)) ; 


SOoOOoooooooo ooo 


i Save the two-character device name designation seperately, for use 
in correlating the device name with a device class. 


if .str_len EQ. 0 
Indicate that the device name has been wild carded. 


coo NNN NN NNOOO 
3S 


a Wild_carded_device = true 
se 
! There is a device name get the first two characters 
so that a device class can be translated. 
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CHSMOVE (2,.tmp_ptr.dev_name) ; 
If .exclude_flag 
Then 
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ERF PARSER Command Parser 18-56 1984 23:45: AX-11 Bliss-32 
v04-0 12780871382 $3:33:38 EAP LSRCIERFPARS 
7 971 : 
5S ace Signal_stop (msg$_invquaval, 2,.name,include_desc) ; 

40 974 End ; 

4) 975 

4 ane : 

4 97 ! Ensure that the device and controller designation are 

re} 44 } valid. Save the starting pointer. 

46 980 Tmp_ptr = .ptr ; 

S47 981 td dine 

48 o8¢ Incr I from 1 to .str_len do 

49 9 Begin 

29 984 If (CHSGEQ (1,.ptr.1,ptr_a)) AND 

551 985 (CHSLEQ (1) .ptr. tf ptr_z)) 

226 986 Then 

55 987 ! 

22¢ 43 Valid character for this string, point to the next character. 
556 990 Begin 

557 99 Name_len = .name_len + 1 ; 

558 99 Ptr = CHSPLUS (.ptr,1) ; 

559 99 End 

560 99 lse 

561 99 Return false ; 

266 99 
56 End ; 
564 
565 
566 


<m 
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12-866-198e 92:37:25 LEAF \SRESERFPARSER B3249 DS 


: 8 : Indicate that this device is to be excluded. 
: 0 Beg 
: 031 Dev raglectdevs exclude_flg] = tx 3 
: 0 ¢ ExcTude_masklexcSv_devicé_select) = true ; 
3 8 Z nd 
; 5 ; » snc lute _maskCinc$v_device_select] = true ; 
3 8 Return true ; 
3 039 1€End; ' Routine 
-PSECT S$PLIT,NOWRT,NOEXE, PIC,2 
00 00 00 41 00250 P.ACL: .ASCII \A\<0><0><0> : 
00 00 00 SA 00254 P.ACM: .ASCII \Z\<0><0><0> : 
00 00 00 43 00258 P.ACN: .ASCII \O\<0><0><0> : 
00 00 00 39 0025C P.ACO: .ASCII \9\<0><0><0> : 
00 00 00 gh ited P.ACP: .ASCII \*#\<0><0><0> : 
00 00 00 SA 00264 P.ACQ: .ASCII \:\<0><0><0> : 
00 00 00 24 00268 P.ACR: .ASCII \$\<0><0><0> : 
PTR_A= P.ACL 
PTR-Z= P.ACM 
PTR_O= P.ACN 
PTR “9= P.ACO 
PTR “STAR= P.ACP 
PTR ~COLON= P.ACQ 
-PSECT S$CODE,NOWRT, PIC,2 
OFFC 00000 -ENTRY pores DEVNAME, Save R2,R3,R4,R5,R6,R7,R8,- =; 1743 
5B 00000000' 00 9€ 00002 MOVAB PTR_A, R : 
5A 00060000" 00 3 0009 MOV DEVSELECT, R10 3 
5E 08 C2 0001 SUBL » SP 3 
59 D4 0001 CLRL BF : 1767 
54 D4 0001 CLRL SP_CAR en ; 
53 04 AC DO 0001 MOVL NAME, R ; 1810 
02 63 81 18 CMPW (R3), 3 
1E 1 BGEQU $5 PF 
0141 31 000 ys: BRW 0$ 3 
OE 63 61 88 $: CMPW (R3), #14 ; 1811 
F 1A 8 GTRU 1$ F 
38 63 3¢ 000 MOVZ2WL (R3), R2 3 1826 
5 04 =A C9 6 B ADDL2 4(R35, R2 ; 
B F ECL PTR é 
C 00051 CLRQ UNIT_LEN ; 18 
4 ps 0 CLRL $P_CAR_LEN : 18 
68 : 1 38: CMPB ss (PTR) , ~PTR_A : 18 
if BGEQU§ 7$ 3 
08 AB 8 9 A CMPB (PTR), PTR_O ; 183 
A 1F 0003E BLSSU 4$ : 


| 2 | 
; ERFPARSER Command Parser 15-56 -1984 245: AX-11 Bliss-32 V4.0-742 Page 47) 
v04- 1279 08- 1 3b 93:33:38 ENF SRETEREPARSER 83224 . (5) | 
Oc AB 2 91 00046 CMPB ss (PTR), PTR_9 2 1834) 
4 1A 44 BGTRU 3 
5 06 46 INCL _UNIT_LEN + 1841) 
14 11 0004 BRB 8 t 1842 
10 AB 62 9 O4A 4$ CMPB (PTR), PTR_STAR + 1849 
18 AB 65 Ht O86 CMPB 4 =s-s« (PTR), P.ACR : seaal 
o¢ 13 00054 BEQL «= 7$ : 
146 AB 62 91 046 CMPB ss (PTR), PTR_COLON + 1871) 
cs 12 00 2A BNEQ 1$ : 
4 06 005¢ 5$ INCL § $P_CHR_LEN + 1883 
3 D O05 rs 3 DECL PTR + 1884 
D3 11 0006 BRB 3 + 1821 
38 D3 00062 7$ TSTL -UNIT_LEN + 1895 | 
3 1 00064 BEQL 9$ : 
05 55 01 00066 CMPL -—*UNIT_LEN, #5 + 1898 
BS 1A 00069 BGTRU 1 : 
04 AE 01 A2 9 00068 OV 1(R2), PTR_UNIT + 1910 
SE DD 00070 PUSHL SP : 1911 
08 AE DD 00072 PUSHL PTR_UNIT ; 
55 DD 0007 PUSHL UNIT _LEN : 
000000006 00 03 FB 90077 CALLS #3, CIBSCVT_DTB : 
09 50 €9 0007E BLBC STATUS, 8$ : 
50 6A 00 00081 MOVL DEV_SELECT, RO : 1917 
18 AO 6E 80 00084 MOVW  UNIT_NUMBER, 27(RO) : 
14 11 00088 BRB 9$ + 1916 
04 AE 9F OOOBA 8$ PUSHAB PTR_UNIT + 1923 
55 pDe 0008D PUSHL UNIT_LEN s 
02 DD O0008F PUSHL # : 
000000006 8F Dp 00091 PUSHL #ERF_CVTERR : 
000000006 00 04 FB 00097 CALLS #4, CIBSSIGNAL ; 
52 04 A3 y 9009 9$: MOVL  4(R3), PTR + 1931 
$6 63 3¢ OOOA MOVZWL (R3), RO 1982 | 
50 55 Ce 000A SUBL2 UNIT LEN, RO ; 
56 50 54 ¢ 00048 SUBL3 SP_CAR_LEN, RO, STR_LEN ; 
62 56 34 A OOOAC LOCC #38, STR_LEN, (PTR) : 1937 
2 12 00080 BNEQ 10S : 
51 D4 000B2 CLRL sR ; 
58 51 DO 000B4 10$:  MOVL 1, TMP_PTR : 
: 13 00087 BEQL : 1938 
57 B c3 00089 SUBL3. PTR, TMP_PTR, NAME_SIZE : 1946 
6 57 01 O0BD CMPL NAME_SIZE, #6 + 1947 
17 15 000C¢ BLEQ = 11 : 
000000006 99 9F 990¢ PUSHAB INCLUDE_DESC : 1950. 
DD 000C¢ PUSHL R3 ; 
02 DD OOOCA PUSHL : | 
0008132c 8F DD 000C PUSHL #529196 : 
000000006 09 04 FB 900 CALLS #&, LIBSSTOP : | 
5 01 A % 009 11$: MOV 1(R8), PTR : 1952 | 
50 56 37 ¢3 0000p SUBL3 NAME SIZE, STR LEN, RO ; 1953, 
56 FF AQ : ta MOVAB -1(R0), STR_LEN ; 
2 1 6 £5 BRB 1 > 1938 | 
50 A 0 0&7 12$: MOVL DEV_SBLECT. RO 3 1964 | 
1€ AQ 1 EA BISB2 #1 (RO) ; 
0 6 01 a: CMPL TR_LEN, #7 : 1966 
17 19 OOOF BLSS $ : 
000000006 00 9F 000F3 PUSHAB INCLUDE_DESC : 1972 


; Routine Size: 359 bytes, Routine Base: S$CODE + 070C 


; 1606 


2040 1 


2 | 
ERF PARSER Command Parser 15-Sep- AX-11 Bliss-32 V4.0-742 Page 48 ERF 
Fae 000 14- i 198 3: $3: ERF .SRCJERFPARSER.B32;1 . (5) | v04 
3 DD 000F9 PUSHL : : 
DD 000FB PUSHL ; ° 
0008132¢ F DD FD PUSHL #529196 : : 
000000006 00 4 FB 1 CALLS #4 LIBSSTOP : : 
: DO OO10A 13$:  MOVL PTR, TMP_PTR ; 1980, : 
D4 00100 CLRL + 1984. : 
OF 11 0010F BRB 5$ : : 
66 62 91 00111 148: CMPB (PTR), PTR_A : : 
4E iF 00114 BLSSU 208 : : 
04 AB 62 91 00116 CMPB (PTR), PTR_2 : 1985 | : 
48 1A OO11A BGTRU $ : | ; 
D6 0011C INCL NAME_LEN + 1991 : 
é D 116 INCL R : 199 3 
ED 9 F 120 15$: AOBLEQ STR_LEN, I, 14$ + 198 ; 
6A p 104 MOVL ODE qe R7 + 2004 ; 
3 0127 MOVZ2WL (R3) : 2005 ; 
5 5 C2 O0O12A Ls UNIT LEN 3 $¢ 
08 A7 5 4 8 1 D SUBB AR EVENS a 8(R7) : 3 
5 08 <A7 98 00132 CVTB CR ) : 2007 3 2 
09 «A? 04 83 50 28 001 MOVCS RO, @&(R3), 9(R7) : 2008 ; § 
56 D5 0013C TSTL  STR_LEN > 2014 ; 
06 if 01 E BNEQ ; 3 
4C AA 01 DO 00140 MOVL #1, WILD_CARDED_DEVICE : 2018 2 § 
04 11 00144 BRB 7 ; : 
FC AA 68 B80 00146 16$: MOVW TMP_PTR), DEV_NAME : 2023 3 § 
OA OE AA E9 0014A 17$: BLBC EXCL DE FLAG, T8$ : 2025 : 
1E AZ 02 88 O01 4E BISB2 # : 2031 3 
50 18 AA DO 0015 MOVL  EXCLUDE_MASK, RO : 2032 : 2 
04 11 00156 BRB ; te 
50 30 AA 00 00158 188: MOVL INCLUDE MASK, RO : 2035 3 § 
02 Ao 10 88 0015C 19$: BISB2 #16, 2(RO) ; : 
50 01 pO 00160 MOVL » RO : 2037 32 
04 00163 RET ; 3 
50 D4 00164 208: CLRL RO : 2039 ; $ 
04 00166 RET : : § 
: 
i 
2 ¢ 
| 
e§ 
. ¢ 
e 4 
e § 
e 4 
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V04-000 Ve-Seb-1984 13:37:08 LEAF LSRESERFPARSER 63074 ~ (6) vo“ 
; 1608 a] ! ROUTINE CLASS_OPTION_CHECK: NOVALUE = : 
: 1610 2$ | 14s | ; 
; 1611 044 1! : 
; 1ol¢ 9 } : Functional Description: | : 
: 1614 047 1! This routine verifies that there are no conflicts between /exclude and : 
: 1615 048 1! /include device name end class option selections. Following is a set of ‘ 
3 1618 Oe} : example inputs and a brief description of how they are handled: | ‘ 
: 1618 051 1! /include=MF,TAPE (the queue entry for MF will be removed because that : 
: 1619 §2¢ 1} entire class of devices is selected (tape)). | : 
: 1620 > - oe /exclude=MF ,TAPE (the queve entry for MF will be removed because that ‘ 
3 1° 1 bee ! entire class of devices is selected (tape)). : ‘ 
; 16 : 056 1! /inc lude=TAPE + ¢ 
; 1624 O57 3: and /exclude=MF (valid command - will output all tape entries except ‘ 
; 19s? 058 1! MF entries) ‘ 
; 1626 059 1! | 7 § 
; 1627 060 1! /inc Lude=MF ts 
3; 1628 061 1! and /exclude=TAPE (The /include option will take precedence over the | ‘ 
F 1669 06¢ 1} exclude option and the tape class indicator will : ‘ 
3; 16 065 1! be cleared.) | e§ 
: 1631 064 1! i¢ 
; 1636 065 1 ! Calling Sequence: | : § 
; 16 066 1! e ¢ 
: te: soee 1! CLASS_OPTION_CHECK () ; : ‘ 
3; 1635 068 1! : 
; 1636 44 1 ! Input Parameters: : 
3; 1637 070 1! : 
; 1638 2071 1! None : 
3 1639 sore 1! ° 
: 1640 soo 1 ! Output Parameters: : 
3 1641 074 1! : 
; 1642 2075 1! None : ‘ 
3 164 076 1! ‘ 
> 1644 077 1 i-- : § 
; 1645 078 Begin i § 
3: 1646 079 : 
3 1647 080 2 MAP 2 ¢ 
3 1648 081 Dev_select: REF S$BBLOCK, ‘ 
3 1649 One ExcTude_class: REF VECTORC, byte], : 
3; 1650 08 xclude_key: REF VECTOR, : 
; 1651 Oe Exc lude_mask REF SBBLOCK, ‘¢ 
3 1036 5 nclude_class REF VECTORC, byte), | ‘ ‘ 
3; 165 O36 Include_key: REF VECTOR, | . 
; 1654 +4 Inc lude_mask : REF S$BBLOCK ; ‘¢ 
: 1655 088 | 34 
: 1036 08 LOCAL sq 
3 1697 030 Status ; | . 
> 1659 03 i 4 
: 1660 09 ' Both the /include and /exclude qualifiers have been parsed. Determine | a4 
3: 1661 4 ! if there are any conflicts between the devices and device classes : 4 
; 1066 y ; that have been included / excluded. | : 
3: 1664 $9 ! Ensure queue is not empty | 2 4 
| 
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6 1665 
:1 

: 1 
:1 

: 1 

: 1 

: 1 

: 1 

: 1 

: 1 

> 1 
:1 

: 1 

: 1 

: 1 

: 1e81 
; 1682 
> 168 
: 1684 
1 
> 1687 
: 1688 
> 1689 
: 1690 
13 
1898 
> 1694 
: 1695 
33 2 
3% 2 
3 9 2 
: 1 
:1 

: 1 
:1 

: 1 

: 1 
71 

: 1 
+1 
:1 

: 1 
:1 
:1 
:1 
+1 
:1 

: 1 
:1 

: 1 
:1 

: 1 
:1 
21 


B-198 12:27:28 LEAF SRCJERFPARSER 
$39 it -Que_entry_cnt LEQ 0 | 
Then 


1} i Exit, empty queue 
| 


eS 323 


Return $ 


. 
LY 
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9 

re 

i . 

ore 6 Determine if there were both device and device class entries selected. 

078 9 if ((NOT -include_maskCinc$v_dev_class selects? AND 

67 (NOT .include_maskLinc$v_device_selectJ)) OR 

678 1 ((NOT .exclude_masklexc$v_dev_class_select]) AND 

679 1 (NOT .exclude_masklexc$v_device_seTectJ)) 

680 : Then 
1 i Either one of the other is not selected, return to calling 
: routine. 
Return ; 


] 
Get the address of the first entry in the queue. 


Que_entry_addrs = root_flink + .root_flink ; 
] 
Read an entry from the queue. 


incr 1 from 1 to -Que_entry_cnt do 
Begin 
i Determine if either the exclude or include device class 
' selections conflict with any of the devices selected. 
! (/include,/exclude=tapes and/or /include,/exclude=MF ) 


ince J from 0 to max_class do 
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& egin 
Be ? If exclude naskCexcSvdev.class_select) 
n 
re $ H Determine if exclude bit recorded in the entry was set. 
egin 
A's 6 If (,exclude_class(€,J] EQL .que_entry_addrs(dev$b_class]) AND 
7 (,que_entry_addrsidev$v_exclude_flg]) ) 
r9 Then 
ns ' Remove onary from queue because the entire class 
71 4 ! of devices is excluded. 
714 4 ! 
715 4 § Begin 
716 If NOT (status = LIBSREMQTI (root_flink,.que_entry_addrs)) | 
71 6 Then 
At 6 Signal (.status) ; 
71 6 
#60 6 ‘ ‘ 
721 6 ! Update the que entry count, determine if there are 
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any device selections left, and return to calling routine. 
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Exclude_q_entry_cnt = .exclude_q_entry_cnt - 1; 
If .que_entry_cnt EGL 0 
Then 


Indicate that there are no device selections. 


Begin 
gxs ‘ude _pasklonchv_dovice_select? = false ; 
n . 


Return ; 
End 
Else 


! Conflicting /include and /exclude option 

' selections. Reset the exclude class selection. 

! Determine if there are any device class selections left, 
notify the user and return. 


Begin 
Exclude_mask(0,.(exclude_key+.J),1,0] = false ; 
' 


i Indicate that there are no device class 
selections made for /excilude. 


Exclude_maskCexc$v_dev_class_select] = false ; 
Return ; 
End ; 

End ; 


include_maskCinc$v_dev_class_select] 

' 

! Remove the entry from the queue because either (l)entire class 
of devices is includes OR (2)conflicting /include and 

i 
i 


/exclude options were selected (The /include selection has 
precedence over the /exclude selection). 


Begin 
If (,include_class€.J] EQL gave entry eddrs(devSb_classJ) AND 
ev 


(NOT .que_entry_addrsldev$v_exclude_fig]) ) 
Then | 
i 
Begin 
i NOT (status = LIBSREMQTI (root_flink,.que_entry_addrs)) 
en 


Signal (.status) ; 


i Update the que entry count, and determine if there are 
' any device selections left. 


P a 
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46-Sep-1984 ERF .SRCJERF PARSER B30; 6) | V 
: 1758 ig 4 lud includ 1 | 
; nclude_q_entry_cnt = .include_q_entry_cnt - 1; 
: 1761 14 If .que- “Shtry., Yat Ear 6 Rip es 
ie 3 ” 
: 4 ¢ 1H 6 | Indicate that there are no device selections. | 
: 17 i8 5 Begin | 
: if ? i prelude _maskl incSv_device_select? = false ; ; 
: 1789 ( 6 : | 
3; 1790 3 Return ; 
3; 1791 4 End ; 
3 1738 5 4 End End ; | 
; nd ; 
: 149% ; 
3; 1795 8 ! 
3 Ha 2 Update the que entry address, to get the next entry. 
: 1798 1 Que_entry_addrs = .que_entry_addrs + .que_entry_addrs([dev$a_flink] ; 
: 1799 ; End ; 
: 1800 e End ; !' Routine 
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.W Save R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 + 2041 
5B 000000006 00 9€ 90002 MOVAB LIBS$SIGNAL. R11 - 3 
5A 000000006 00 9€ 000 MOVAB LIBSREMQTI, R10 ; 
59 0000' cf 9E 9019 MOVAB QUE_ENTRY_ADDRS, R9 : 
38 00000000' 00 9€ 0001 MOV QUE-ENTR “a : 
5 68 3C 0001C MOVZWL QUE"ENTRY-CNT, R5 : 2099 
01 14 9001 BGT 1$ ~ : 
04 00021 RET ; 
50 FO Ag DO 00022 1$ MOVL § INCLUDE_MASK, RO : 2109 
04 60 15 €0 0 6 BBS Hae (RO), ¢ : 
08 60 14 €1 A BBC #20, (RO), 3$ + 2110 
50 D8 Ag D0 00 E 28 MOVL EXCLUDE MASK, RO : 2111 
05 60 15 £0 00 BBS Hae (RO), 4$ ; 
01 60 14 9 9 6 3$: BBS #20, (RO), 4$ : 2112 
5 F4 AD OE 4$: MOVAB ROOT_FLINK, RO > 2123 
6 F4 B94 E F MOVAB @ROOT_FLINKCROJ, QUE_ENTRY_ADDRS 3 
56 ps 44 CLRL > 2128 
0098 31 6 46 BRW 4$ ; 
53 D4 00049 5$: CLRL ; 3135 
52 D8 AB DO 00048 6$: MOVL EXCLUDE MASK R2 : 2137 | 
45 : 15 £1 O004F BBC #21, (R2), 168 ; 
1 C8 «AB OD 33 MOVL EXCLUDE CLASS, R1 > 2141 
50 69 D MOVL § QUE ENTRY_ADDRS, RO ; 
37 1D AO 9 A CVTBL 29(R0), R F 
57 6341 8 é 2 CMP2V #0, #8. (J)CRI), R7 ; 
BNEQ PF 
20 1E AO : ¢@ 66 BBC #1, 30(RO), 8$ ; 3142 
0 DD 00068 PUSHL > 214 
| 
| 
| 
i 


norony 


a 
2 
ERF PARSER Command Parser 1b. -Sep-1984 AX-11 Bliss-32 V4.0-74 Page 53) 
v04 Verge} 38s §3:59:38 «FAKE TE Bb iss eh ve -O3 248 «a 
F4 OAD OOF $ PUSHAB R OT_FLINK ; | 
A ‘ F CALLS » TIBSRE EMOTI : 
4 D 7 MOVE TATUS : 
5 4 € i: BLBS nO: 1 : 
4 DD 0007 PUSHL $I T us + 2151 
68 1 Fe 7B CALLS BSSIGNA : 
pc «=OAB COD 7E 7$: DECB EXELUDE Q “ENTRY, CNT + 2157 
6 : TSTW ave EN + 2159 
6 BNEQ 1 : 
50 D8 AB OD MOVL EXCLUDE. WSK. RO + 2165 
48 11 9 BRB 2$ ; 
DO A843 «OF 0 8$: PUSHAB EXCLUDE -KEYCJI + 2178 
00 62 Hs 5 F BBCC a(SP)$, “(R2), 9% F 
02 =A 2 , 0 93 9$: BI C82 #32, 2(R2) : 2184 
50 FO Ag DO 6098 10$:  MOVL INCLUDE_MASK, RO + 2189 
38 0 15 £1 009¢ BBC #21, (RO) , als : 
1 EO AB DO 000A MOVL INCLUDE _C + 2198 
0 69 00 DOA, MOVL QUE ENTRY wit "ho : 
2 1D AO 98 000A7 CVTBL 29(RO) : 
6341 08 99 ED 000AB CMP7ZV i #8. (J)CR1IJ, R2 ; 
iF 0081 NEQ 13$ ; 
23 1€ AO 1 €0 00083 BS 30(RO), 13$ + 2199 
0 DD 00088 PUSHL RO > 2205 
F4 AQ 9F OOOBA PUSHAB ROO ; 
oA 9¢ FB 0O0BD CALLS * CIBSRENaTI 3 
4 D0 990¢9 MOVL R TUS ; 
05 54 €8 000¢ BLBS stands. Fs ; 
54 DD 0006 PUSHL : 2207 
68 01 Fe 900¢8 CALLS BSSIGNA ; 
DD AS 97 000CB 11$:  DECB mi tie Q TENTRY._ CNT : 2213 
68 B85 000C TSTW QUE ~ENTRY~CNT + 2214 
18 12 000D BNEQ 15$7 ; 
50 FO AB DO 9900 MOVL INCLUDE_MASK, RO : 2220 
02 AO 10 BA 0006 12$:  BICB2 #16, 2(RO) ; 
4 OOODA ET + 2204 
FFOA 53 01 0S F1000DB 138: ACBL #5, #1, J. 6$ : 135 
79 99 CO OO0E ADDL2  @QUE_ENTRY_ADDRS, QUE_ENTRY_ADDRS > 2231 
FFSF 56 01 55 £1 OO0E4 14$: ACBL RS, #1, 1,75$ : 2128 
04 OOOEA 15$: _— RET > 2233 
; Routine Size: 235 bytes. Routine Base: S$CODE + 0873 


; 1801 2234 1 


Br rm Dia 
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ERFPARSER Command Parser 15-Sep-1984 23:45:5 AX-11 Bliss-32 V4.0-74 P 
v04 1arge8= 1386 93:37:38 PANE LA Bhisscke ye -03248 age 3 
GLOBAL ROUTINE DEVICE_OPTION_CHECK = 
ee 


Functional Description: 


This routine verifies that there are no conflicts igen 

(1) /exclude ong 7 inc Lude device name selections, (2) any of the 
‘values’ specified for either /include qr /exclude. Following is a 
set of example inputs and a brief description of how they are handled: 


ee ey 
| a ae eke ee 


/include=MF MF (only one entry for MF will be in the device selection queue 
/exclude=MF MF (°') 


/inc Lude=MF 
and /exclude=MF (user will get an error message, invalid option selection) 


Return false if Like entry already exists in queue. 
ites ch ond Sear Recier le sett iektes entry already in queue. 
Calling Sequence: 
DEVICE_OPTION_CHECK () ; 
Input Parameters: 
None 
Output Parameters: 
None 


ar 


FUN 
PIP DPIPIPIPIPIPIPIAIPINIPININ INIA at a i i a ed dd dd 


SS 


vd 
wm 


Implicit Inputs: 


(G9 CD Cd OD G9 GD GO OD CD OD GD OD CD CD OD CD Od 09 09 09 CD 09 CO C9 CD OD: 
=O OONOUES WN MOOONOUS WN Mw 
MMIPIPITOPININOPINININININIPIPIPOPIPIARININIPOROPIPIFUPIPUPUPUNOPD 
PAPE MMAMNMAUIUIUIUAE 
WN SO OONOAUE WN OOOO UE WR OOONOU 


De Se Se Se Se Se Se Se Be Se Be Se Se Fe Se Ge ts Se Fe Se Ge Ge Se Fe Se Se Se Ge Ge Se Ge Se Ge Ge Se Se Se Se Se Se Se Se Se Se ee Be os Sete Ge Se Ge Se Ge Se eease 


ee ee ee ee ee ee ee ee ee ee ed ee ee ee ee el ce ee ce ee ce ee ce ee cel ee ce ee ed ee ee ee ed ee 


: $65 

38 $$ 
+4 44) Implicit Outputs: 
Bel rg i 
seg 74 oad 
ok o Begin 
re: 7 EXTERNAL 

§ 8 Exclude_desc, 

H 7 Include_desc ; 

9 1 
830 § Dev_select: REF $BBLOCK ; 
326 4 If NOT SEARCH QUEUE (dev_select(dev$t_dev_name], ; 
85 85 dev_select(dev$b_dev_name_length)dev_select(dev$w_unit)) 
Bee Then 
836 i The selected entry does not match any entries already 
g2 H in the queue. 
Ba9 91 Return true ; 


2 
CIPMREN ——_Conand Parser JERESHOES ESE Web UWBSRp Rd 2 


3 3 9 

3; 3 38 ' 

3: 1 g 94 ! Indicate that conflicting /exclude and /include option 

: ; 95 : selections. 

: 1865 39 Signal (erf_cnfquaval, 2,exclude_desc,include_desc) ; 

3 138 38 

3% : 

3 1868 ! Due to the error message severity (fatal) this should never 
; 136 1 ! be executed but satisfies the return value business for the 
: ; A § compiler. 

: 1872 » Return false ; 

D4 187 05 ¢ 

: 1874 06 < End; ! Routine 


0000 00000 ENTRY DEVICE OPTION CHECK, Save nothing 
59 00000000" 00 »b0 ait VL +} SECECT, RO 
18 AO 9F 4 PUSHAB (RO) 
8 AO 9F Q000C PUSHAB 8(RO) 
9 AO YF QOOOF PUSHAB 9 (RO) 
00000000v 00 93 F Bo1$ CALLS #3, SEARCH_QUEUE 
4 0 € 01 BLBS RO, 1$ 
0 01 dO Booie MOVL #i, RO 
4 QOO1F RET 
000000006 00 9F On5e 1$: PUSHAB INCLUDE_DESC 
000000006 : 9F 00026 PUSHAB EXCLUDE_DESC 
DD 0002C PUSHL #2 
000000006 8F DD 0002E PUSHL M#ERF _CNFQUAVAL 
000000006 00 04 FB 00054 CALLS #4, CIBSSIGNAL 
50 04 00038 CLRL RO 
4 00030 ET 


; Routine Size: 62 bytes, Routine Base: $CODE + 095E 


2307 1 


3; 1875 


Kies 


3 
ERFPARSER Command Parser 8-s¢ 1984 23:45:5 AX-11 Bliss-32 V4.0-742 
106-000 127308-1382 $3:33:38 AF SREJERF PARSER B3204 
1 GLOBAL ROUTINE SEARCH QUEUE (name,name_length,unit_number) = 


lee 
! 


Functional Description: 


S00 G0 at ao 
Wr—OOon~) 


Saeeesee8 


This routine will search the device name queue and determine whether 
the device name/unit passed to it matches any of the entries in the 
queve. It will return true if match on either device name/unit or 
return false if no match. 


i 
i 
i 
i 
i 
i 
i 
Calling Sequence: 

SEARCH _QUEUE (device name,device name Length,unit number) 
! 

i 

i 

' 

i 

' 

i 

' 

i 


aes hee eer tah dean atiininaenbana ae 
MIFEWN OOD NAUE WN CODNAOULS WIN —OOO 


3 1 

3: 1 1 

3 1 

3 1 1 

24 1 

s 3 1 

3 1 1 

3; 1 1 

s 3 1 

3 1 1 

s 1 1 

3 3 1 

3 3 1 

3 1 1 

; 1891 1 

3 1996 1 Input Parameters: 

: 189 1 

> 1894 ; 1 Address of device name 

; 1895 1 Address of device name Length 
: 1896 3 1 Unit number 

: 1897 3 1 

: 1898 23 1 ! Output Parameters: 

; 1899 23 1 

3; 1900 3 1 None 

: 1901 3 1! 

3 16 3 1 !=- 

3; 190 $3 Begin 

; 1904 3 

: 1905 3 LOCAL 

; 1906 33 Device_selected: BYTE 

3; 1907 338 Initial (false), 
: 1908 339 Entry_name, 

; 1909 2340 Entry_name_size, 

3; 1910 tah Is WORD 

3 1911 346 Initial (.que_entry_cnt), 
3 131¢ 23435 2 Name_ptr, 

3: 191 344 ‘ 

3 1914 $02 Size , 

3 1915 46 Size_adj ; 

3 1916 tot 

3 1917 348 Bind select_name_size = .name_length : byte ; 
3; 1918 2349 Bind unit =.unit_number : word ; 
3; 1919 2350 

3 1380 $2) ! 

3 1921 26 ! Ensure queue is not empty 

: 1356 5 ‘ 

3: 192 54 If .que_entry_cnt LEQ 0 

3 1356 55 Then 

: 1958 3§ S Sait, meee 

3 ! Exit, empty queue 

3 1927 58 : 

: 1928 59 Return false ; 

3; 1929 60 

3; 1930 61 ! ; 

; 133) $¢ : Get the address of the first entry in the queue. 
; 1938 64 Que_entry_addrs = root_flink + .root_flink ; 


' 

Determine if the device name/controller match. 

it CHSEQL (.size,.name,.size,que_entry_addrs(dev$t_dev_name]) 
en 


\ 
Determine if a unit number was specified. 


SSSSsesessessese 


Begin 

Device_selected = true ; 

If .que_entry_addrs(dev$w_unit] NEQ (-1) 
Then 


Unit number was specified, determine if it matches. 


Co 
~ 


SRORReowaes 


oo 
oO 
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Vv04 12-8 8-1 ohe $3'53:38 ERF SREIERF PARSER B32 24 
3; 19 65 
; 1935 98 : 
3 i Read an entry from the queue. 
; 1938 re Until (.1 EQL 0) OR (.device_selected) do 
3; 1939 70 Begin 
; 1940 71 ' 
: 1941 Le ! Determine if the selected device name/controller match the 
; 1308 if } device name/controller recorded by this queue entry. 
3 19446 75 : 
: 1262 30 Determine if the node name in the queue entry was wild carded. 
5 1947 78 if .que_entry_addrs(dev$v_node_name_wild] 
: 1948 79 a" —— 
3; 1949 80 ' 
; 1950 81 ! The node name is wild carded, locate the '$' in the string 
3; 1951 366 ! and adjust the length and te ote address of the string so 
3 1326 38 ! that the compare will be against the device name only. 
: 195 384 ! 
: 1988 38 Pt Z CHSFIND_CH ( L h %C'$') 
: re --mame_length,.name,%C'$") ; 
3: 1956 389 If .ptr NEQ 0” a 
3; 1957 88 Then 
3; 1958 89 ! 
3; 1959 90 ! Found a $ in the string, compensate for node name being 
: 1960 91 ! Logged and being wild carded when device(s) selected for 
3 1961 3 ' output. 
3 bs «1 9 ! 
3 196 94 
3 1 2395 Size_adj = (.ptr - .mame) ; 
2 2396 -Name_length = (..name_length - .size_adj) ; 
s 2397 Name = CHSPLUS (.ptr,1) ; 
3: 1 § 98 End ; 
; : +44 End ; 
3 : 01 Size = MINU (.que_entry_addrs(dev$b_dev_name_length],.select_name_size) ; 
s 7 
3 1 
3 7 
s 3 
s 7 
3 1 
3 1 
3 1 
s 7 
3 1 
3 1 
3 1 
3 1 
3 1 
s 1 
3 1 
s 1 
3 1 
3 1 


PRR RRR RRR REE RE EES EE PAW 
SSFox 
w 
OIA BE RUE BBWAA NW UN BS BB BREE 


Begin : 
1; -unit NEQU .que_entry_addrs(dev$w_unit] 
en 


3 
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42 Page aS pate 
-Sep- ERF .SRCJERFP 31 ( | 


991 4 ¢ : 
888 4 ! Indicate that the unit number did not 
99 424 ! match. 
994 425 ; 
995 4 § Device_selected = false ; 
397 156 ~S 
ee re 2 if -device_selected 
en 
4 ? 1 Exitloop ; 
O08 4 : End ; 
004 38 ! 
005 436 i Update the que poate address and decrement the number of 
OOF nH queue entries that have been searched. 
oo ‘i Que_entry addrs = .que_entry_addrs + .que_entry_addrs(dev$a_flink] ; 
4 End ; : | 
' 
i Ensure that the device name/controller designation and unit 
g g 

! numbers match, determine whether the entry is for a /include 

and /exclude option. 

if -device_selected 

¢ Then 


Begin 
If) .exclude_flag AND .que_entry_addrs(dev$v_exclude_flg] 
en 

\ 

! Indicate that a ‘'/excluded' entry was found by 
returning with a true value. | 
| 

| 

| 


Return true 
Else 


pofololeloleolololelolelololelelol~l-l-l—) 
POPOPUPINIPINININD 
WN 9 ODONOULSWN —OVDONOULWN—OVOO~n 


Begin 
Lf) (WOT -exclude_flag) AND (NOT .que_entry_addrsidev$v_exclude_fig]) 

en 

1 


AUS WN SO OONOULS WN O OONOU FW —OO0O 


By ar a? ot ot at at ot el et te et ke kt tt tt 


=PIPIMIMUININIWE & BH HS BNE AWAWAAI IAI CEP PIPIPIPIPINIPI NIWA NNN BS BPP EE 


PROPIPINIPDNPINOPININIPININI NINN NINN NNN NI NINININININININININININID 2 2 OO Oe 


Be Se Se Se Be Se Oe Se Ge Ge Se Be Se Se Se Ge Ge Ge Ge Se Fe Se Se Ge Se Se Se Ss Se Se SH Ss Se Se Se SH Se Se Se Ge Ge Ge Ge Ge Ge Ge Gee Ge Ge ee Gee 


RIPINININIPININININININONINININININPININIPIAINIPININONININPINPUPINIPINININUNY 


i 

03 6 i Indicate that a ‘/included’ entry was found by | 
3 ? } returning with a true value. | 
$36 6 Return true ; 

B36 67 nd ; 
03 68 End ;: 
038 69 H . ~ * : 
O75 4! : No matching entries, return to calling routine. 

041 2 Return false ; 

eh 7 ; 

04 74 End ; ! Routine 


ERF PARSER 
04-000 


50 


50 


; Routine Size: 


Command Parser 


04 


08 


09 


oc 


BC 


59 


BC 


Ay 


BC 


04 


179 bytes, 


08 


08 
04 


04 


FFFF 


1E 


1E 


Routine Base: 


—w Cwm Oyu oOwp 
oo FW AOGO Won 


0000' 
00000000' 


~n-n 
oe 
@ 
> 


1E 


1B 
1B 


00000000° 


[=] 
o 


COOPMMOOMOMDOMNIAF VIMO F OF O19) 
= SS S MOU NDE MNVMNVO SME OKOO- 


“ 
oO 


SCODE + 099C 


3 
if e 
14-Se 
O7FC 00000 
9E O006 
3 000 
HS 0 2 
BS 0001 
14 0001 
31 0001 
SE OOOTA 1$: 
9E 0001 
B5 00 23: 
13 00 
E8 00027 
DO 0002A 
Hy 0002D 
A 00031 
12 00037 
D4 00039 
0 00038 3$: 
1 443 
C3 00040 
C2 00045 
4 00049 
98 OO04GE 4$: 
ED 0005 
1E 0005 
9A OO0SA 
DO OOOSE 5$: 
29 00061 
12 00067 
90 00069 
B* Bonet 
13 00072 
32 00074 
Fp 00078 
1 th 
94 00080 
E8 pea 6$: 
CO 00085 7$: 
87 4 
£9 Qo08C 8S 
BR Mit BF: 
E9 00096 
i Sone 
ES 000A 
4 te 10$: 
E a! 
DO OOOAC 11$ 
04 Spat 
D4 00080 12% 
04 00082 


w$ep-1986 12:07:25 


A 
0 
UE 
EV 
o. 
$ 
2 


ROOT_FLINK, 
@ROOT_FLINK 


AX-11 B 
ERF.SRC 


j 


iss- 
ERFP 


32 
AR 


ENTRY _ADDRS, R10 


NTRY_CNT, RO 


CE SECECTED 
I 


$ 
DEVICE SELECTED, 9$ 
RY ADDRS, R4 


QUE 
3 


R1 


ENT 


Ri, PTR 
4$ 


NAME, PTR, SIZE_ADJ 
SIZE -ADJ . | aNAME~LENGTH 


1(R7J 
8(R4 


#0, 


) 


@NAME_LENGTH, RO 
STZE 
sile. @NAME, 9(R4) 


#1, DEVICE SELECTED 
27(R4), #-T 


27(R 


#0, 
6 


2 ROD2zoOwWmMonr-— 
So C3 CS K&S OD 
se 3 fe + fr Oc 


4) 
#1 


V4.0-74 
SER.B32; 


RCH_QUEUE, Save R2,R3,R4,R5,R6,R7,R8B,R9,-; 


RO 
CROJ, QUE_ENTRY_ADDRS 


(R4), 4 
#36, @NAME_LENGTH, @NAME 


RO 
#8, QNAME_LENGTH, RO 


RO 
6, @UNIT_NUMBER, RO 


DEVICE_SELECTED 
DEVICE SELECTED 


9 


4), GUE_ENTRY_ADDRS 


Page 59 
. (8) 


See Se Se Ge Se Se Se Se Se Ge Se Se Se Ge Se Se Fe Ge Fe Ge Se Ge Se Be Be Ge Fe Be Se Be Be Be Fe Se Fe Fe Be Be Se Fe Se Se Se Se Se Se Se Se Se Se Se Fes 


r 


3 
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3 2044 2475 (1 


3 
SN ont tone NERIMM Esha TDA 


image name pointers (image that needs to get activated), and transier 
address pointers. 


matching device name is located, and returns the appropriate device class. 


; Oug 476 1 GLOBAL ROUTINE TRANSLATE_DEVICE (search_name,dev_class) = : 
; Se of Begin ° 
: a8 ‘28 ys | ; 
; 081 481 i Functional Description: | ; 
; 058 4 : i This routine searches the device tables to translate the : 
: bee tee } known device name to a device class. ‘ 
026 rt} Calling Sequence: : 
; $38 rt TRANSLATE_DEVICE (search_name,dev_class) ‘ 
; e¢ a ; Input Parameters: : 
3 e¢ re ; Search name = First two characters of device name ‘ 
; bee rp Output Parameters: ; 
> 2066 496 Dev.class = Device class if device name found ELSE | ‘ 
: 06? rl -1 if device name not located in table. ‘ 
; : : 
3 2069 499 2: Returns true if a match occurred. | : 
; 2070 500 : Returns false if unoupper see device. (This should eventually be ° 
; 2071 501 : caught and handled by the parse_devname routine. ‘ 
; Ore 208 ! : 
: S074 30, 5 ; 
; 2075 505 2 EXTERNAL : 
; 2076 206 Dev_addrs_ptr: REF VECTOR Long). : 
: 2077 50 Dev_class_ptr: REF VECTOR C,word], ; 
; 2078 508 Max_clas*zs: REF VECTOR C,byteJ; : 
Me BEB on : 
: 2081 511 : BYTE Initial (1), ! Device address pointer index | . 
; 208 218 Max_classes_value: BYTE; : 
: 5084 312 5 Locat ; 
3 2085 515 Dev_specific tbl: 7 VECTOR C,word], ! Device specific table address ‘ 
3 One 216 K: Initial (0) ; ! Device specific table index : 
Ps | ° 
; 2088 318 BIND ; 
; i 51 Cs_name = CHSPTR (uplit('CS')) ; F 
; 2091 33 | : 
; as 4 5 § Class dir is the address of a table that contains supported device | : 
: Baz 2 ? classes and pointers to the device class specific information tables. | : 
> 2095 3 5 The device class specific table contains the supported device names, 
; 3 $ 
; 356 ; 
; 530 : 
; 531 : 
: 532 : 


This routine searches all of the device class specific tables until a | 


Loop through all of the device class specific pointers in the class dir 


H 3 
Rt ant tome IERIE HEE Marble ESy 


~NM 


_ 
w 


3 ! table. 

4 : 

5 

Max_classes_value «= max_classes(0J; 

Incr I fro 1 to .max_classes_value do 
Begin 


—OO0ONO 


; Get the address of a device class specific table. 
Dev_specific_tbl = .dev_addrs_ptr(.1) ; 


ISIS 
Sk al ek ek 
Vw 


54 ‘ Initialize another index for the device class specific table so don't 
54 ' Lose the current position. Determine if the contents of the device 
' name field is valid OR whether the end of the device name entries 
} in the table has been reached. 
K=1 A 
Until (.K EQL .dev_specific_tbi[0]) do 
Begin 
i Determine if the selected device name matches any of the 
' device names recorded in this table. 


4 CHSEQL (2, CHSPTR(.search_name), 2, CHSPTR(dev_specific_tbiC.K])) 
en 


Hee 


1 
! The device names match. Using the class dir table index, 
! get the corresponding device class. (The index is divided 
' By 2 because device classes are words and the index is for 
longwords). 
| 
| 


PEGA IVIVIUA LE & 


Begin 

-Dev_class = .dev_class_ptr(.1] ; 
ob ety true ; 

nd ; 


1 
Update the device name pointer indices. 


K=.K +1 : 
End ; 
End ; 


rE PAN RP AN eS 
MEWN CO OONOU SEWN OO MEW" O OONOUES WN —O0OMW 


AAA AAT ITIRINITINIIIIUNINY & <8 8 ho mh oO 
COONOUFS WO 0 VPwn— SONONE WY SOOONOME WN ODee uw 


The name for the console device ‘CSA’ is not included in the device name 
tables contained in ERFLIB.TLB. It really is a second device name for 
the RX device which is included in the device tables. There should be 

a table that includes devices Like these, however because there is only 
one at this time, it is checked for explicitly. 


f CHSEQL (2, CHSPTR(.search_name), 2, cs_name) 
en 


me et me me mt ee tee 
Zs 


1 
! Return the device class. 


ee ee ce el ee el ce ee eel el lt ee el el eel el a el el el ell el el lt cell ll lh cl el cl el ll ll lt cl cael al cl ll ll lt cell cl cls cel cl cl eld cls 


PANAMA BEBE EE EEE 
tw Tel al al al al ab ah ab Ab sh Ab dh Ab dh hb db db bb db db db 4b ab db db ah db db th Ab Ab Ah ah ah ah ah Ab db ah ah al 


RoPORoORoRoROROPOPOPOPOPORIPUWE FERS RUS RARER ERE REPRE 


OONOULS Ww 


Ooo 


oe 3 3 tt tt 
SISSSLSSFELAS 


3 
ee NERESHOEE TEASE UT ENaHR UBS 


! 
Begin 
.Dev_class = DCS_DISK ; 
Return true ; 
nd ; 
! Could not locate a class for this device name. 


.Dev_class = -1 ; 
Return false ; 


5 
6 
6 
6 End ; ! Routine 
-PSECT SPLIT,NOWRT,NOEXE, PIC,2 
00 00 53 43 0026C P.ACS: .ASCII \CS\<0><0> 
-PSECT S$OWNS,NOEXE, PIC,2 
01 000C0 I: -BYTE 1 
000C1 MAX_CLASSES VALUE: 
-BLRB 1 
CS_NAME= P.ACS 
‘ DEV_ADDRS_PTR, DEV_CLASS_PTR 
-EXTRN MAX_CLASSES 
-PSECT S$CODE,NOWRT, PIC,2 


003¢ 00000 -ENTRY TRANSLATE_DEVICE, Save R2,R3.R4,R5 
55 00000000' 99 9 90002 ROVAB MAX CLASSES_VALUE , R5 
65 000000006 00 90 900 MOVB § MAX_CLASSES, MAX_CLASSES_VALUE 
54 9A 0001 MOVZBL MAX~CLASSES.VALUE, R4 
D4 0001 CLRLO 

A 11 0001 BRB 4$ 
51 000000006 00 0019 1$ MOVL  DEV_ADDRS_PTR, R1 
53 6140 D0 00020 MOVL (RISCIJ, BEV_SPECIFIC_TBL 
52 or DO 00024 MOVL ap 

52 63 10 00 3 00 t 2$ CMP ZV #0. #16, (DEV_SPECIFIC_TBL), K 
6342 04 if e 3 CPW @SEARCH NAME. (DEV_SPECIFIC_TBL)CKI 

51 000000006 _00 é ¢ MOVL DEV CLASS PTR, RI 
BC 6140 3¢ 0003C MOVZWL (RISCIJ, SDEV_CLASS 

16 11 004] BRB 5$ 

5 06 43 3$ INCL = K 

E 4 BRB 2$ 

CE 50 4 F3 00047 4$ AOBLEQ R4, I, 1$ 
00000000' 00 04 ¢ 81 4 CMP W @SEARCH NAME , CS_NAME 
08 eC 1 06 MOVL #1, @DEV_CLASS 
1 p 5$ MOVL #1, RO 
4 C RET 


sean 


Command Parser 


; Routine Size: 100 bytes, 


3; 2173 


2603 1 


Routine Base: S$CODE + OA4F 


1E-seectgRe #345:56 


T 


AX-11 
ERF.SR 


ClERPPaRsER-030:1 


08 BC 9} bk B30e4 6$: cra aie @DEV_CLASS 


3 | 
oh menhtaten NESESEL GEESE Web BST HR LE: Bit roe ff 


; 19) ° ¢ } GLOBAL ROUTINE GET_VM (size) = 

Ps | 
Bt ae | 
; 173 6 ! Functional Description: | 
: 2181 61 1! This routine calls the LIBSGET_VM Library routine to allocate the 
: 21 ¢ ee S requested amount of virtual memory. If the request completed | 
: ; oig : successfully the allocated area is cleared, else an error is notified. | 
; ¢185 614 1 | Calling Sequence: 

: 21 $1 1 ' Base_adr = GET_VM (size) | 
3; 21 61 1! 

: 198 218 ' Input Parameters: | 
; 13) : Size in bytes) of the area to be allocated. 

3 138 ¢ : Output Parameters: 

3 Mb ¢ : Base address of the allocated area (address of the first byte). 

: 199 626 | ine 

3; 2198 6 Begin 

$200 655 5 LOCAL 

; $54 650 Base_addrs, ! Storage for returned base address 

3 soe 631 Status ; ! Storage for the return status 

; 204 2638 ; 

: 2205 634 i Call the LIBSGET_VM routine to allocate the requested amount of 

: $06 tH virtual memory and if it was not successful, notify the user and exit. 

; 43 su Status = LIBSGET_VM (size,base_addrs) ; 

: 310 659 If NOT .status 

; HE 641 Signal (.status) ; 

: $512 ges 5 

: 215 644 i Clear the allocated area and return the base address of the area 

: sig 7? to the calling routine. 

: 18 $e9 CHSFILL (0, .size, .base_addrs) ; 

: 221 648 -Base_addrs 
:; 2220 649 1 End; 


003¢ 90000 JENTRY GET_VM, Save R2,R3,R4,R5 : 2604 

SE 94 C2 0000 SYBL2 #4, "SP ; 
E 5 9000 PUSHL SP : 2637 

000000006 99 08 FB 0000; CALLS, #2; LIBSGET_VM 
09 35 £8 doott BLES = STATUS, 18 ~ ; 2639 


3 


ERF PARSER Command Parser i$ =$ 4 AX-11 Bliss-32 V4.0-74 & 6 
V04 1aneee= Tks 93:39:38 «| HEME TE Bb iss oz2 ve. O3048 age 18 
0 DD 00014 PUSHL STA : 2641 
000000006 00 i FB 00016 CALLS #1, aT BSSIGNAL : . 
04 Ac 0 6E = 00 2C 00010 1$: mMovcS #0. (SP), #0, SIZE, @BASE_ADDRS + 2647 
50 6E BO $e MOVL § BASE_ADDRS, RO + 2649 
4 RET ; 


; Routine Size: +1 bytes, Routine Base: S$CODE + 0AB3 
H 1 650 1 

3 ¢ $2) 1 End 

: 652 0 ELUDOM 


-EXTRN LIBSSIGNAL, LIBSSTOP 


; PSECT SUMMARY 

: Name Bytes Attributes 

: QUEUE_DATA 16 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(3) 
3; $GLOBALS 92 NOVEC, » RD ,NOEXE,NOSHR, LCL, REL. CON, PIC,ALIGN(2) 
: $ 194 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
3; SPLIT 624 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, (CON, PIC,ALIGN(2) 
3; SCODE 2780 NOVEC, T, RDO, »NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
mm Ss 0 NOVEC.NOWRT.NORD -NOEXE.NOSHR, LCL, ABS. CON.NOPIC.ALIGN(O) 


Library Statistics 


; coeccere Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped e 

> _$255$DUA28:(SYSLIBILIB.L32;1 18619 32 0 1000 00:01.8 

: COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:ERFPARSER/OBJ=OBJ$:ERFPARSER MSRC$:ERFPARSER/UPDATE=(ENHS$: ERF PARSER) 


; 2780 ¢ ge + 926 data bytes 
; Run Time: 30? 28 

; Elapsed Time: 1: 38. 

> Lexemes/CPU-Min: 1 rae 


: "Y Used: 363 pages 
; Compilation Complete 
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